Предмет: Информатика,
автор: 7Айнур7
составит программу нахождения суммы натуральных чисел от 1-100
Ответы
Автор ответа:
0
var
i, sum : integer;
begin
sum := 0;
for i := 1 to 100 do sum := sum + i;
writeln (sum);
end.
i, sum : integer;
begin
sum := 0;
for i := 1 to 100 do sum := sum + i;
writeln (sum);
end.
Интересные вопросы
Предмет: Русский язык,
автор: goldlesha777
Предмет: Информатика,
автор: anastasiakot1410
Предмет: Физика,
автор: nastaosorgina52
Предмет: Геометрия,
автор: миу1