Pascal ABC написать программу вычесления стоимости покупки состоящей из нескольких...

Question

Pascal ABC написать программу вычесления стоимости покупки состоящей из нескольких тетрадей и карандашей

Answer 1

var nk,nt: integer;
ck,ct,s: real; 
begin
writeln('Введите количество карандашей');
readln(nk);
writeln('Введите количество тетрадей');
readln(nt);
writeln('Введите стоимость 1 карандаша');
readln(ck);
writeln('Введите стоимость 1 тетради');
readln(ct);
s:=(nk*ck)+(nt*ct);
writeln('Стоимость покупки: ',s);
end.

(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)

 (nk-количество карандашей, nt-количество тетрадей)