Выведите все четные числа в диапазоне от 2 до 100 двумя разными способами; с использ??ванием цикла

Выведите все четные числа в диапазоне от 2 до 100 двумя разными способами; с использ??ванием цикла FOR и с использованием цикла WHILE
Категория: Информатика 3 года назад
На вопрос 3 года назад
Радмила Лосева
Var i:integer;
begin
writeln('Цикл For');
  for i:=2 to 100 do
    if i mod 2 =0 then writeln(i);
writeln('Цикл While');
  i:=2;
  while i<=100 do begin
    writeln(i);
    i:=i+2;
  end;
end.
Ответ получен 3 года назад
Kirill Melnichenko

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт