Информатика,7 класс,паскаль ,на фото задание,даю 20 баллов
var N:integer;
BEGIN
writeln('Введите возраст:');
readln(N);
if (N>=11) and (N
writeln('Вам ',N,' лет') else
case (N mod 10) of
1:writeln('Вам ',N,' год');
2,3,4:writeln('Вам ',N,' года');
0,5,6,7,8,9:writeln('Вам ',N,' лет');
end;
end.
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program Nothing;
uses
crt;
var
year:integer;
desytki:real;
begin
write('Введите ваш возраст (от 1 до 150 лет): ');
repeat
readln(year);
until (year<=150);</p>
write('Вам ',year);
desytki:=(year mod 100 - year mod 10)/10;
if (desytki = 1) then
writeln(' лет.')
else if (year mod 10 = 1) then
writeln(' год.')
else if (year mod 10 = 2)or(year mod 10 = 3)or(year mod 10 = 4) then
writeln(' года.')
else if (year mod 10 = 5)or(year mod 10 = 6)or(year mod 10 = 7)or(year mod 10 = 8)or(year mod 10 = 9) then
writeln(' лет.');