Регистрация
arscool
10.10.2021 16:32
Информатика
Есть ответ 👍

Информатика! найдите сумму чисел от 1 до 50

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

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

натусик252
натусик252
4,5(77 оценок)
Var       i, s: integer; begin       for i : = 1 to 50 do               s : = s + i;       writeln('s = ', s); end.
Люда0001
Люда0001
4,8(30 оценок)
N(n+1)/2   50(50+1)/2     50(51)/2 =1275 
yrik0440
yrik0440
4,5(18 оценок)
Program zadacha; var a, b, i: integer; sum: real; begin a : = 3; b : = 1; sum : = 0; for i : = 1 to 8 do begin sum : = sum + a / b; a : = a + 1; b : = b + 1; end; writeln('результат: ', sum: 2: 5); readln; end.

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