Ответы
Ответ дал:
1
var
sum: Word;
i: Byte;
begin
sum := 0;
i := 1;
while i <= 99 do begin
sum := sum + i;
Inc (i)
end;
Write (sum)
end.
aloya2111:
огромное спасибо, всё идеально
Ответ дал:
0
Ответ:
program summa;
var
sum: Word;
i: Byte;
begin
sum := 0;
i := 1;
while i <= 99 do begin
sum := sum + i;
i := i + 2;
end;
WriteLn('Сумма нечетных чисел от 1 до 99 равна ', sum);
end.
Объяснение:
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад