Любой цикл for можно переделать в while не особо думая:
for счетчик := начальное to конечное do
begin
что-то
end;
это тоже самое, что и
счетчик := начальное;
while счетчик <= конечное do
begin
что-то
счетчик := счетчик + 1;
end;
И там и там переменная счетчик сначала равна начальному значению, затем с ней что-то делают, и счетчик увеличивается. Если счетчик стал слишком большим, цикл прекращается.
Переделанная программа может выглядеть так:
program more;
var
s, i: integer;
begin
s := 0;
i := 20;
while i <= 40 do
begin
if (i mod 2) = 0 then
s := s + i;
i := i + 1;
end;
writeln(s)
end.
С:\School115\8Forms\8A
Объяснение:
С:\School115\7Forms\7A.
1. Поднялся на один уровень вверх. - получилось С:\School115\7Forms
2.Повторил 1 действие. - еще раз на уровень выше, С:\School115
3.Спустился в каталог 8Forms. - получилось С:\School115\8Forms
4.Спустился на один уровень вниз. - получилось С:\School115\8Forms\???, где ??? - какой-то неизвестный каталог
5.Снова поднялся на уровень вверх и спустился в каталог 8А. - сначала вернулся в С:\School115\8Forms, потом спустился в С:\School115\8Forms\8A
Поделитесь своими знаниями, ответьте на вопрос:
Вребусе зашифровано название устройства для компьютера. для каких операций применяют это устройство