Ввести возраст ребёнка от 0 до 9 включительно и вывести его со словом год, года или лет
Решить в PascalABC
С помощью цикла for вывести последовательность нечётных чисел от 1 до 10.
Решить в PascalABC
С помощью цикла for вывести последовательность нечётных чисел от 1 до 10.
More Questions From This User See All
Answers & Comments
Ответ:
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.
Удачи))