• 
  • 30 November 2020
  Информатика
  • Автор: rozovaapantera451

  

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

• 
  • 30 November 2020
  • Ответ оставил: Arkassssha

  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.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (03.08.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы