Разветвляющийся алгоритм. Изменить цвет и фон сообщения в зависимости от четности числа

@vadim77 · Регистрация: 24.08.2010

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

Составьте программу которая при вводе четного числа выводила бы какие - либо сообщения белым цветом(15) на синем фоне(1), а при вводе нечетного числа сообщение с ярко синим (9) на зеленом фоне (2).

@CodeR · 29.05.2012, 09:11

Pascal

Uses crt;
Var n:integer;
Begin
    ClrScr;
    write('Введите число: ');readln(n);
    if n mod 2 = 0 then
     Begin
      TextBackGround(1);Clrscr;
      TextColor(15);
      write('**************');
     End
     else 
      Begin
       TextBackGround(2);Clrscr;
       TextColor(9);
       write('**************');
     End;
End.

@vadim77 1 / 1 / 0 Регистрация: 24.08.2010 Сообщений: 157
		1
	Разветвляющийся алгоритм. Изменить цвет и фон сообщения в зависимости от четности числа 29.05.2012, 06:44. Показов 1799. Ответов 1 Метки нет (Все метки) Составьте программу которая при вводе четного числа выводила бы какие - либо сообщения белым цветом(15) на синем фоне(1), а при вводе нечетного числа сообщение с ярко синим (9) на зеленом фоне (2). 0

	29.05.2012, 09:11

Опции темы

Разветвляющийся алгоритм. Изменить цвет и фон сообщения в зависимости от четности числа

Решение