Сработой. напишите программу, которая вычисляет сумму: а) первых n натуральных чисел; б) квадратов первых n натуральных чисел; в) всех чётных чисел в диапазоне от 1 до n; г) всех двузначных чисел.

122

354

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

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

yarikplay13

Информатика

4,6(88 оценок)

A) var s, i, n : integer; begin s: =0; readln(n); for i: = 1 to n do s: =s+i; writeln(s); end. б) var s, i, n : integer; begin s: =0; readln(n); for i: = 1 to n do s: =s+(i*i); writeln(s); end. в) var s, i, n : integer; begin s: =0; readln(n); for i: = 1 to n do begin if (i mod 2 = 0) then s: =s+i; end; writeln(s); end. г) var s, i : integer; begin s: =0; for i: = 10 to 99 do s: =s+i; writeln(s); end.