Решения (задачи 1-49)
Задача 42
writeln(а:6:2); writeln(b:6:2); writeln(с:6:2);
Задача 43
writeln('xl=',xl:6:2, ¦ х2=',х2:6:2)
Задача 44
uses Crt; begin
TextBackGround(Blue); { цвет фона }
TextColor(LightGray); { цвет символов }
ClrScr; { очистить экран }
writeln('Буря мглою небо кроет');
writeln('Вихри снежные крутя.');
writeln('То как зверь она завоет,');
writeln('То заплачет, как дитя.');
writeln;
writeln(' А.С.Пушкин');
readln; { чтобы стихотворение не исчезло с экрана } end.
Задача 45
Uses Crt; begin
TextBackGround(Black); ClrScr;
TextColor(Red); write('Каждый ');
TextColor(LightRed);{оранжевый заменим светло-красным}
write('охотник '); TextColor(Yellow); write('желает ');
TextColor(Green); write('знать '); TextColor(LightBlue);
write('где '); TextColor(Blue); write('сидит '); TextColor(Magenta); write('фазан.');
readln; { чтобы фраза не исчезала с экрана } end.
Задача 47
readln(u); readln(r);
Задача 48
readln(u,r);
Задача 49
{ объявление переменных }
r, h: real; {радиус и высота цилиндра}
v: real; { объем цилиндра}
{ фрагмент программы }
writeln('Введите исходные данные:');
write('Радиус цилиндра › ');
readln (г);
writeln('Высота цилиндра › ');
readln(h);