Помогите скласть программу в Paskal
Составить программу для вычисления суммы чисел от 1 до 20 включительно, результат вывести На экране
1)с оператором while 2)с оператором for
Составить программу для вычисления суммы чисел от 1 до 20 включительно, результат вывести На экране
1)с оператором while 2)с оператором for
More Questions From This User See All
Answers & Comments
var
i, _sum : integer;
begin
i := 1;
while i <= 20 do
begin
_sum := _sum + i;
i := i + 1;
end;
writeln(_sum);
end.
var
i, _sum : integer;
begin
for i := 1 to 20 do
_sum := _sum + i;
writeln(_sum);
end.