Составьте программу, которая n раз при нажатии клавиши Enter меняет цвет экрана (n вводится пользователем с клавиатуры)

@Speektor · Регистрация: 21.05.2020

Author24 — интернет-сервис помощи студентам

Составьте программу, которая n раз при нажатии клавиши Enter меняет цвет экрана (n вводится пользователем с клавиатуры).
Никак не могу сделать, через цикл с условием.. Помогите пожалуйста!

@ZX Spectrum-128 · 21.05.2020, 17:33

Создайте программу которая меняет рандомно цвет экрана 13 раз подряд

Pascal

uses 
graphABC;
 
var
  n, i: integer;
 
begin
  readln(n);
  for i := 1 to n do
  begin
    clearwindow(clRandom);
    sleep(500);
  end;
end.

Добавлено через 26 секунд

Сообщение от Speektor

через цикл с условием..

С каким условием?

@Speektor · 21.05.2020, 17:38 **[ТС]**

С постусловием

@ZX Spectrum-128 · 21.05.2020, 17:45

Pascal

uses 
graphABC;
 
var
  n, i: integer;
 
begin
  readln(n);
  i := 1;
  repeat
    clearwindow(clRandom);
    readln;
    inc(i);
  until i > n;
end.

@Speektor · 21.05.2020, 17:54 **[ТС]**

Оооооо,спасибо Вам,добрый человек. Очень помогли. И через ENTER тем более нажимается.

@Speektor 0 / 0 / 0 Регистрация: 21.05.2020 Сообщений: 3
		1
	Составьте программу, которая n раз при нажатии клавиши Enter меняет цвет экрана (n вводится пользователем с клавиатуры) 21.05.2020, 17:30. Показов 1945. Ответов 4 Метки pascalabc (Все метки) Составьте программу, которая n раз при нажатии клавиши Enter меняет цвет экрана (n вводится пользователем с клавиатуры). Никак не могу сделать, через цикл с условием.. Помогите пожалуйста! 0

@Speektor 0 / 0 / 0 Регистрация: 21.05.2020 Сообщений: 3
	21.05.2020, 17:38 [ТС]	3
	С постусловием 0

@Speektor 0 / 0 / 0 Регистрация: 21.05.2020 Сообщений: 3
	21.05.2020, 17:54 [ТС]	5
	Оооооо,спасибо Вам,добрый человек. Очень помогли. И через ENTER тем более нажимается. 0

Опции темы

Составьте программу, которая n раз при нажатии клавиши Enter меняет цвет экрана (n вводится пользователем с клавиатуры)

Решение