uses crt;
var k: char;
begin
repeat
textcolor(0);
clrscr;
writeln('выберите цвет 1-красный, 2-жёлтый, 3-зеленый другое-выход');
readln(k);
clrscr;
case k of
'1': begin
textcolor(2);
write('красный');
readln
end;
'2': begin
textcolor(14);
write('желтый');
readln
end;
'3': begin
textcolor(12);
write('зеленый');
readln
end;
else exit;
end;
until not(k in ['1'..'3']);
end.
вроде так
объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Люди добрые, ! у меня не было информатики, пока я не перешел в другую школу. совершенно не знаю информатику, а завтра контрольная за 8 класс. решите 2 варианта с решением. можно с письменным вложением. буду
1) 2 нуля
2)303 и с3
3)106
8)а=-15
9)а=15
10)s=4
11)s=3
(сорян, но на 4,5,6,7 я не знаю ответы)