Приятна мне твоя прощальная
Задача 1х: real; { аргумент функции } у: real; { значение функции }
Задача 2 funt: real; { вес в фунтах }
kg: real; { вес в килограммах }
Задача 5
rl: real; { диаметр кольца } r2: real; { диаметр отверстия } s: real; { площадь кольца } Задача 7 CenaTetr: real; {цена тетради }
KolTetr: integer; { количество тетрадей }
CenaKar: real; { цена карандаша }
KolKar: integer; { количество карандашей }
CenaLin: real; { цена линейки }
Suirana: real; { стоимость покупки }
Задача 11
п:=п+1; Задача 14
у:=-2.7*х*х*х+0.23*х*х-1.4; Задача 16
kg:=gunt*0.4095;
Задача 34 sum:=ct*nt+ck*nk+cl;{ct,ck —цена тетради, карандаша и линейки }
{ nt, nk —количество тетрадей и карандашей}
Задача 38 begin
writeln('Унылая пора! Очей очарованье!'); writeln(' Приятна мне твоя прощальная пора.'); writeln('Люблю я пышное природы увяданье,'); writeln('В багрец и золото одетые леса.'); writeln;
writeln(' А.С.Пушкин');
readln; { чтобы стихотворение не исчезло с экрана } end.
Задача 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(и); readln(г);
Задача 48 readln(и,г);
Задача 49 { объявление переменных }
г, h : real; {радиус и высота цилиндра}
v: real; { объем цилиндра}
{ фрагмент программы }
writeln('Введите исходные данные:');
write('Радиус цилиндра —>');
readln ( г ) ;
writeln('Высота цилиндра —>');
readln(h);
|