Нужно написать 2 программки. Ребят, помогите, кто может ❤️
Answers & Comments
Merovingian
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.
Answers & Comments
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.