Алгоритмы и программы. Афанасьева Т. В - 76 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

76
d:=29;
end;
4,6,9,11: d:=30;
else f:=1;
end;
case m of
1: write( 'в январе – ');
2: write( 'в феврале – ');
3: write( 'в марте – ');
4: write( 'в апреле – ');
5: write( 'в мае – ');
6: write( 'в июне – ');
7: write( 'в июле – ');
8: write( 'в августе – ');
9: write( 'в сентябре – ');
10: write( 'в октябре – ');
11: write( 'в ноябре – ');
12: write( 'в декабре – ');
end;
case m of 1,3,5,7,8,10,12: write(d,' день');
2,4,6,9,11: write(d,' дней');
end;
end.
Пример 3.11. Напечатать заданное слово в заданном падеже, в
единственном числе.
program pad;
var
w,p:integer;
begin
writeln(' Напечатать заданное слово в заданном падеже
,');
writeln(' в единственном числе.');
writeln(' В каком падеже напечатать слово: ');
writeln(' именительный (1), родительный (2), дательный (3),');
write(' винительный (4),творительный (5), предложный (6)?: ');
read(p);
writeln(' Какое слово хотите изменить:');
write(' cтепь (1), боль (2), тетрадь (3), дверь (4)? : ');
read(w);
case w of
1:writeln(' Слово «степь» в');
2:writeln(' Слово «боль» в');
3:writeln(' Слово «тетрадь» в');

Страницы