Question

Решите пж если есть прога "Turbo Pascal" У меня не инсталится на комп с совместимостью проблемы :c

Answer 1

Номер 56

var t,ts,k,ks,a:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
readln(t,ts,k,ks); // t - кол-во тетрадей, ts - стоимость 1 тетради, k - кол-во карандашей, ks - стоимость 1 карандаша
if (t<0) or (ts<0) or (k<0) or (ks<0) then writeln ('Ошибка') else
begin
a:=t*ts+k*ks;
writeln(a);
end;
end.

Номер 58

var a,b,c:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) -> ');
readln(a);
write('Вес яблок (кг) -> ');
readln(b);
c:=a*b;
writeln(' ');
writeln('Стоимость покупки: ',c,' руб.');
end.