Question

1. Вычислить площадь прямоугольника. 2. Вычислить стоимость покупки, состоящей из нескольких тетрадей и нескольких карандашей.

Answer 1

1.

var

a, b, S:real;

begin

s:=0;

writeln('Введите величины: ');

readln(a,b);

s:=a*b;

write('Площадь = ', s);

end.

2.

var

k, t, sum: real;

ck, ct: integer;

begin

sum:=0;

writeln('Введите количество тетрадей: ');

readln(ct);

writeln('Введите количество карандашей: ');

readln(ck);

writeln('Укажите цену одной тетради: ');

readln(t);

writeln('Укажите цену одного карандаша: ');

readln(k);

sum:=ct*t+ck*k;

writeln('Суммарная стоимость покупки: ', sum);

end.