Предмет: Информатика,
автор: dr9858
1.Вводится номер месяца. Надо определить к какому сезону относится этот месяц
2.Написать программу, которая грамотно печатает фразу "У меня К друзей". К вводится с клавиатуры. Например, для К=1 должно напечататься " У меня 1 друг", для К=24 - "У меня 24 друга", для К=100 - "У меня 100 друзей".
Решить в паскаль абс
Ответы
Автор ответа:
0
1:
program a1;
var i:integer;
begin
readln(i);
if i>2 then if i>5 then if i>8 then if i>11 then writeln('Зима') else writeln('Осень') else writeln('Лето') else writeln('Весна') else writeln('Зима');
end.
2:
program a2;
var k:integer;
begin
readln(k);
if k mod 10 = 1 then
writeln('У меня ',k,' друг') else
begin
if (k mod 10 < 5) and (k mod 10 > 1)and(k div 10 <>1) then
writeln('У меня ',k,' друга')
else
writeln('У меня ',k,' друзей');
end;
end.
//Вроде все продумал если нет, извиняйте
program a1;
var i:integer;
begin
readln(i);
if i>2 then if i>5 then if i>8 then if i>11 then writeln('Зима') else writeln('Осень') else writeln('Лето') else writeln('Весна') else writeln('Зима');
end.
2:
program a2;
var k:integer;
begin
readln(k);
if k mod 10 = 1 then
writeln('У меня ',k,' друг') else
begin
if (k mod 10 < 5) and (k mod 10 > 1)and(k div 10 <>1) then
writeln('У меня ',k,' друга')
else
writeln('У меня ',k,' друзей');
end;
end.
//Вроде все продумал если нет, извиняйте
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Физика,
автор: Аноним
Предмет: География,
автор: Urena
Предмет: Алгебра,
автор: leilany
Предмет: Информатика,
автор: swcfy458