Регистрация
gatshow029
16.12.2022 17:30
Информатика
Есть ответ 👍

Найти сумму квадратов всех чисел от 11 до 55

112
237
Посмотреть ответы 2

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

LetMaria
LetMaria
4,5(51 оценок)
Var n,i: integer; begin for i: =11 to 55 do   n: =n+i*i; writeln(n) end.
sheramedi
sheramedi
4,4(2 оценок)
Var a: array[1..10000] of integer; n,i,j,k,t: integer; begin readln(n); for i: =1 to n do read(a[i]); j: =n; repeat k: =j; j: =0; for i: =1 to k-1 do if a[i+1]j: =i; t: =a[i]; a[i]: =a[i+1]; a[i+1]: =t; for t: =1 to n do write(a[t],' '); writeln; end; until j=0; if k=n then writeln(0); //если перестановок не было, программа выводит только число 0. если эта команда не нужна, можешь ее убрать end.

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