Регистрация
vikulyagorobet
18.11.2022 17:42
Информатика
Есть ответ 👍

Найти сумму квадратов всех натуральных чисел от 1 до 100. решить используя цикл while и repeat

163
250
Посмотреть ответы 3

Ответы на вопрос:

Adelyasweet246
Adelyasweet246
4,8(55 оценок)

ответ:

apaloffпочетный грамотей

var i,n : integer;

begin

  n: =0;

  for i: =1 to 100 do n: =n+sqr(i);

  writeln(n);

end.

результат: 338350

люся4085
люся4085
4,4(74 оценок)

pascalabc.net

begin

  var (s, i) : = (0, 1);

  while i < = 100 do

  begin  

    s += sqr(i);

    i += 1

  end;

  println(s);

 

  (s, i) : = (0, 1);

  repeat

    s += sqr(i);

    i += 1

  until i > 100;

  println(s)

end.

monx
monx
4,7(12 оценок)

На экране будет h=4

Объяснение:

Популярно: Информатика