Question

ПАСКАЛЬ!!!

Нужно написать 2 программки. Ребят, помогите, кто может ❤️

Answer 1

program n1;
var x:integer;
begin
read(x);
write(x,' копе');
if (x = 11) or (x = 12) or (x = 13) or (x = 14) then writeln('ек') else 
 if x mod 10 = 1 then writeln('йка') else 
  if (x mod 10 = 2) or (x mod 10 = 3) or (x mod 10 = 4) then writeln('йки') else      writeln('ек');
end.

program n2;
var n:integer;
begin
write('Введите номер месяца: ');
readln(n);
case n of
  1,3,5,7,8,10,12: writeln('В этом месяце 31 день');
  4,6,9,11: writeln('В этом месяце 30 дней');
  2: writeln('В этом месяце 28 или 29 дней');
  else writeln('Введен неправильный номер месяца');
end;
end.