1) составьте программу, вычисляющую сумму квадратов - вопрос №545864911 от Kuk1212 22.06.2022 10:28

Question

Информатика: 1) составьте программу, вычисляющую сумму квадратов всех чисел от 1 до n. 2) написать программу, определяющую сумму всех нечетных чисел от 1 до 99

Kuk1212 · Answer

1) var i,n,s:integer; begin readln(n); s:=0; for i:=1 to n do S:=s+i*i; write(s); end.2) var i,s:integer; begin s:=0; i:=1; while i =99 do begin S:=s+i; i:=i+2; end; write(s); end....