Решения (задачи 1-49)
Задача 1
х: real; { аргумент функции } у: real; { значение функции }
Задача 2
funt: real; { вес в фунтах }
kg: real; { вес в килограммах }
Задача 5
r1: real; { диаметр кольца } r2: real; { диаметр отверстия } s: real; { площадь кольца }
Задача 7
CenaTetr: real; {цена тетради }
KolTetr: integer; { количество тетрадей }
CenaKar: real; { цена карандаша }
KolKar: integer; { количество карандашей }
CenaLin: real; { цена линейки }
Suirana: real; { стоимость покупки }
Задача 11
n: = n+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.