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.

Удачи))

Answer 2

Конечно, вот пример решения этой задачи на PascalABC:

pascalCopy code
program AgeInWords;
var
  age: Integer;
begin
  writeln('Введите возраст ребёнка от 0 до 9: ');
  readln(age);

  if (age >= 0) and (age <= 9) then
  begin
    write('Возраст ребёнка: ', age, ' ');
    if (age = 1) then
      writeln('год')
    else if (age >= 2) and (age <= 4) then
      writeln('года')
    else
      writeln('лет');
  end
  else
    writeln('Неверный возраст');
end.

Этот код запрашивает возраст ребенка от пользователя, затем проверяет, входит ли этот возраст в диапазон от 0 до 9. Если возраст в этом диапазоне, программа выводит возраст с правильным склонением (год, года или лет), в зависимости от значения.

Теперь давайте решим вторую задачу: вывести последовательность нечётных чисел от 1 до 10 с помощью цикла for:

pascalCopy code
program OddNumbers;
var
  i: Integer;
begin
  writeln('Нечетные числа от 1 до 10:');
  for i := 1 to 10 do
  begin
    if i mod 2 <> 0 then
      writeln(i);
  end;
end.

Этот код использует цикл for, чтобы перебрать числа от 1 до 10 и выводит только нечётные числа.