задание по информатике
Запиши программу на языке Паскаль с использованием цикла с предусловием -
Найти сумму чётных первых ста натуральных чисел .
Запиши программу на языке Паскаль с использованием цикла с предусловием -
Найти сумму чётных первых ста натуральных чисел .
Answers & Comments
PascalABC.NET
begin
var (x,Sum):=(0,0);
while x<100 do begin
x+=2;
Sum+=x;
end;
Writeln(Sum);
end.