• помогите написать программу на языке паскаль
    1. вывести все числа от 1 до 10 с помощью while;
    2. вывести все числа от 1 до 10 с помощью repeat

Ответы 1

  • vara,b:integer;begina:=0;b:=0; //Вывод через while   while a<>10 do    begin     inc(a);     write(a,' ');    end;     writeln('');      //Вывод через repeat        repeat       begin        inc(b);        write(b,' ');       end;      until b=10;end.
    • Автор:

      rufus28
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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