1) составьте программу, вычисляющую сумму квадратов - вопрос №545864911 от tanyakondratev2 26.05.2020 09:21

Question

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

tanyakondratev2 · 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....