Регистрация
t4dhjnd1u24ytgh
22.02.2020 07:15
Информатика
Есть ответ 👍

Найдите сумму квадратов и квадрат суммы первых 10 натуральных чисел. по информатике( нужна программа)

299
440
Посмотреть ответы 2

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

urmanovae1983
urmanovae1983
4,4(78 оценок)
Var i, sumkv, kvsum: integer; begin for i: =1 to 10 do begin sumkv: =sumkv+sqr(i); kvsum: =kvsum+i; end; kvsum: =sqr(kvsum); writeln('сумма квадратов равна ', sumkv); writeln('квадрат суммы равен ', kvsum); end.
akot2005
akot2005
4,6(70 оценок)

var a, b: integer;

begin

for b: =20 to 50 do

if (b mod 3 = 0) and (b mod 5 < > 0) then writeln(b);

end.

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