Question

Написать в паскале 1 Вывести на экран все двузначные числа в строку через пробел 2 Напишите программу, которая 7 раз выводит на экран "Черненко Семён" 3 Напишите программу, которая вычисляет сумму всех четных чисел в диапазоне от 1 до n.

Answer 1

Задание 1:

• begin
• for var x := 10 to 99 do print(x);
• end.

Задание 2:

• begin
• loop 7 do println('Черненко Семён')
• end.

Задание 3:

• begin
• (1..ReadInteger('n:')).Where(x->x.isEven).Sum.Print
• end.

Пример работы:

Answer 2

Конечно, вот три программы на Pascal, выполняющие указанные задачи:

1. Вывести на экран все двузначные числа в строку через пробел:

pascalCopy code
program PrintTwoDigitNumbers;

var
  i: Integer;

begin
  for i := 10 to 99 do
    Write(i, ' ');
end.

2. Программа, выводящая "Черненко Семён" 7 раз:

pascalCopy code
program PrintNameSevenTimes;

var
  i: Integer;

begin
  for i := 1 to 7 do
    writeln('Черненко Семён');
end.

3. Программа, вычисляющая сумму всех четных чисел в диапазоне от 1 до n:

pascalCopy code
program SumOfEvenNumbers;

var
  n, i, sum: Integer;

begin
  write('Введите значение n: ');
  readln(n);
  
  sum := 0;
  for i := 1 to n do
  begin
    if i mod 2 = 0 then
      sum := sum + i;
  end;
  
  writeln('Сумма четных чисел от 1 до ', n, ': ', sum);
end.

Примечание: Помните, что эти программы могут быть скомпилированы и выполнены в среде, поддерживающей Pascal.