Отметьте все браузеры 1. Microsoft word
2. Internet explorer
3. Maicosoft outlook
4. Opera
5. Mozilla firefox

Question

Информатика: Отметьте все браузеры 1. Microsoft word 2. Internet explorer 3. Maicosoft outlook 4. Opera 5. Mozilla firefox

РыбкаНемо · Accepted Answer

Uses Crt;

Procedure R(Nazvanie:string; Cvet:byte);
Begin
TextBackground(Cvet);
ClrScr;
GotoXY(WindowWidth div 2-Length(Nazvanie) div 2,WindowHeight div 2);
Write(Nazvanie);
End;

Var n:byte;
Begin
HideCursor;
TextBackground(0);
ClrScr;
TextColor(15);
GotoXY(WindowWidth div 2-12,WindowHeight div 2);
Write('Введите номер дня недели');
Case ReadKey of
'1':
    R('Понедельник',4);
'2':
    R('Вторник',14);
'3':
    R('Среда',2);
'4':
    R('Четверг',9);
'5':
    R('Пятница',1);
'6':
    R('Суббота',13);
'7':
    R('Воскресенье',12);
else R('В неделе сейчас семь дней!',0);
End;
ReadKey
End.

Отметьте все браузеры 1. Microsoft word 2. Internet explorer 3. Maicosoft outlook 4. Opera 5. Mozilla firefox

MOGZ ответил

Отметьте все браузеры 1. Microsoft word
2. Internet explorer
3. Maicosoft outlook
4. Opera
5. Mozilla firefox