Question

Написать 3 программы: 1. Написать программу, которая будет считать сумму введенных с клавиатуры чисел до тех пор, пока не будет введен ноль. 2. Написать программу (с циклом While) которая находит сумму всех четных чисел до 100. 3. Написать программу вывода квадратов всех натуральных чисел, не превосходящих данного числа N. Пример: N=50 | 1 4 9 16 25 36 49 язык Паскаль 8 класс

Answer 1

1 программа:

var a, sum:integer;

begin

writeln('Введите числа (цифра 0 - выход из программы)');

sum:= 0;

readln(a);

while(a <> 0) do begin

sum:= sum + a;

readln(a);

end;

writeln('Сумма чисел = ', sum);

end.

2 программа:

var a, sum:integer;

begin

a:=0;

while(a <= 100) do begin

if (a mod 2 = 0) then

 sum:= sum + a;

a:= a + 1;

end;

writeln('Сумма четных чисел = ', sum);

end.

3 программа:

var a, i, N:integer;

begin

writeln('Введите N');

readln(N);

a:=1;

for i:=1 to N do begin

 write(a*a, ' ');

 a:= a + 1;

end;

end.

Answer 2

Конечно, вот примеры программ на языке Паскаль для выполнения указанных задач:

Программа 1: Считывание суммы чисел до нуля

pascalCopy code
program SumUntilZero;
var
  num, sum: integer;
begin
  sum := 0;
  repeat
    write('Введите число: ');
    readln(num);
    sum := sum + num;
  until num = 0;
  
  writeln('Сумма введенных чисел: ', sum);
end.

Программа 2: Сумма четных чисел до 100 с использованием цикла While

pascalCopy code
program SumEvenNumbers;
var
  num, sum: integer;
begin
  sum := 0;
  num := 2; // начинаем с первого четного числа
  
  while num <= 100 do
  begin
    sum := sum + num;
    num := num + 2; // переходим к следующему четному числу
  end;
  
  writeln('Сумма четных чисел до 100: ', sum);
end.

Программа 3: Вывод квадратов натуральных чисел до заданного числа N

pascalCopy code
program PrintSquares;
var
  N, i: integer;
begin
  write('Введите число N: ');
  readln(N);
  
  for i := 1 to N do
    write(i * i, ' ');
end.

Пожалуйста, убедитесь, что вы правильно настроили среду разработки для языка Паскаль, чтобы эти программы могли быть выполнены успешно.