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

126

137

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

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

тёма113435

Информатика

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

// pascalabc.net 3.2, сборка 1383 от 09.02.2017 // внимание! если программа не работает, обновите версию! 1 begin writeln('s=',range(1,readinteger('n='(x-> x*x)) end. пример n= 10 s=385 2 begin writeln('s=',range(1,99,2).sum) end. результат s=2500

uliana3murrr

Информатика

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

1. var n,i: integer; begin readln(n); for i: =1 to n do writeln(i*i); end. 2. var n,i: integer begin for i: =1 to 99 do if i mod 2 = 1 then n+=i; writeln(n) end.