Гавриил
5 год назад
Пожалуйста посчитайте пожалуйста !!Составьте программу суммирования 10 последовательных натуральных чисел начиная с z
ОТВЕТЫ
Красимира
Oct 24, 2020
Program n1;
var z,i,sum: integer;
begin
readln(z);
sum:=0;
for i:=1 to 10 do
begin
sum:=sum+z;
z:=z+1;
end;
writeln(sum);
end.
var z,i,sum: integer;
begin
readln(z);
sum:=0;
for i:=1 to 10 do
begin
sum:=sum+z;
z:=z+1;
end;
writeln(sum);
end.
51
Смежные вопросы:
