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.
вроде так
объяснение:
Текстовый редактор Microsoft Word предназначен для набора текста с клавиатуры, а также редактирования, копирования, создания таблиц, одним словом для того, чтобы созданный Вами документ выглядел максимально привлекательно, стильно и информативно. С вы можете составить такие документы как:
оформить курсовую или дипломную работу;
составить резюме кандидата на должность;
напечатать заявление о приеме на работу;
подготовить многомиллионный договор на поставку товара;
сочинить и отредактировать для печати целый роман.
Другими словами, текстовый редактор Microsoft Word, будет полезен абсолютно любому пользователю компьютера, который так или иначе связан с текстовыми документами.
Т.к уточнений нет, то написал на Pascal самым простеньким методом.
Проверьте всё ли тут, что требуется.
var
a,b,c,d,f,g:integer;
begin
writeln('Входные данные');
readln(a,b,c);
if (a<b) and (a<c) then
d:=a;
if (b<a) and (b<c) then
d:=b;
if (c<b) and (c<a) then
d:=c;
if (a>b) and (a>c) then
g:=a;
if (b>c) and (b>a) then
g:=b;
if (c>b) and (c>a) then
g:=c;
if (a>d) and (a<g) then
f:=a;
if (b>d) and (b<g) then
f:=b;
if (c>d) and (c<g) then
f:=c;
writeln('Результат работы');
writeln(d+' '+f+' '+g);
end.