Question

Ввести возраст ребёнка от 0 до 9 включительно и вывести его со словом год, года или лет
Решить в PascalABC
С помощью цикла for вывести последовательность нечётных чисел от 1 до 10.

Answer 1

Ответ:

1)

Program Ages;

var age :integer;

begin

 write('Возраст ребёнка: '); readln(age);

 if age = 1 then

   writeln(age, ' год' );

 if (age < 5) and (age > 1) then

   writeln(age, ' года' );

 if age > 4 then

   writeln(age, ' лет' )

end.

2)

Program Seq;

var age :integer;

begin

 for var i := 0 to 10 do

 begin

   if i mod 2 <> 0 then

     write(i, ', ');

 end;

end.

Удачи))