На мониторе зеленый огонек возле кнопки включения справа гаснет, хотя в крошечных "глазках" на мониторе слева огоньки продолжает бегать. Я также пробовала отключить монитор (во время работы блока), а затем включить -- все равно изображение не появлялось, хотя зеленые глазки горели.
2)
var i:integer;
begin
writeln('Введите цифру означающюю день недели, например 2-вторник');
readln(i);
case i of
1:writeln('Понедельник: Алгебра,Геометрия,Русский,Физ-ра');
2:writeln('Вторник Информатика,История,Изо');
3:writeln('Среда,Английский,Искусство');
else writeln('ERROR');
readln;
end;
3)
var a:integer;
begin
writeln('Введите ваш возраст');
readln(a);
if (a<7) then writeln('Дошкольник') else
if (a>7) and (a<18) writeln('Ученик') else
if (a>18) and (a<60) writeln('Рабтник') else
if (a>65) writeln('Пенсионер');
readln;
end.
письмо от тебя получил письмо
Объяснение:
ккк