1.Вводится номер месяца. Надо определить к какому сезону относится этот месяц2.Написать...

Question

1.Вводится номер месяца. Надо определить к какому сезону относится этот месяц

2.Написать программу, которая грамотно печатает фразу "У меня К друзей". К вводится с клавиатуры. Например, для К=1 должно напечататься " У меня 1 друг", для К=24 - "У меня 24 друга", для К=100 - "У меня 100 друзей".

Решить в паскаль абс

Answer 1

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.

//Вроде все продумал если нет, извиняйте