Регистрация
mrfotuna14
31.03.2020 14:53
Информатика
Есть ответ 👍

Паскаль! найти сумму не превышающую 50-ти квадратов натуральных !

153
287
Посмотреть ответы 2

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

А1А2А3А
А1А2А3А
4,7(12 оценок)
Сумма квадратов натуральных чисел до 50var      i: integer;       s : = 0; begin      for i : = 1 to 50 do              s : = s + i * i;                     writeln(s); end.сумма квадратов натуральных чисел ближайшая к 50var      s : = 0;       i : = 0; begin      repeat              s : = s + i * i;               i : = i + 1;                     until s + i * i > = 50;             writeln(s); end.
nikitinallllll
nikitinallllll
4,7(51 оценок)
Var a,s,i,b : integer; begin readln(a); while a< > 0 do begin readln(a); s: =s+a; i: =i+1; end; writeln(s,'  ',i); end.

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