Регистрация
zhanelkenesbekova
07.07.2021 13:09
Информатика
Есть ответ 👍

Дербез компьютерлик компоненттердин техникалык сипаттамаларын аныктайтын программа​

212
290
Посмотреть ответы 1

Ответы на вопрос:

freax1613
freax1613
4,4(29 оценок)

const l=390;

rrashod=15;

frashod=36;

var

x: real;

economy: real;

fcost,rcost: real;

begin

repeat

write('введите стоимость 1 галлона бензина: ');

readln(x);

until x> 0;

rcost: =l/rrashod*x;

fcost:
=l/frashod*x;

economy: =rcost-fcost;

writeln('стоимость поездки на а/м ролс-ройс составляет ',rcost: 0: 2,' p');

writeln('стоимость поездки на а/м форд составляет ',fcost: 0: 2,' p');

writeln(' составляет ',economy: 0: 2,' p');

writeln('нажмите enter для ');

readln;

end

Популярно: Информатика