• Нужно составить программу Паскаль с for
    вывести на экран 1000;900;..;100

Ответы 2

  • var   i,a : integer;begina := 1100;for i := 1 to 10 do begin  a := a -100;  writeln (a); // write (a,'; ');end;end.
    • Автор:

      bradley
    • 6 лет назад
    • 0
  • // Нужно составить программу Паскаль с for вывести на экран 1000;900;..;100  Var i,x:word;begin   for i:=1000 downto 100  do //Если вместо слова to в цикле for поставить downto, то после выполнения каждого шага цикла переменная-счетчик будет не увеличиваться, а уменьшаться на единицу     begin       x:= i mod 100;       if x=0 then writeln (i);     end;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years