Составить блок схему и написать программу в турбо - вопрос №9968059 от MCKiri4PrO 18.09.2020 12:25

Question

Информатика: Составить блок схему и написать программу в турбо паскале. .человеку нужно съездить из лондона в эдинбург. расстояние между этими составляет 390 миль. можно ехать на автомобиле марки роллс-ройс либо на автомобиле марки форд эскорт . роллс-ройс расходует 1 галлон бензина на каждые 15 миль пути. форд эскорт расходует 1 галлон бензина на каждые 36 миль пути. сколько будет стоить поездка в эдинбург на роллс-ройсе , если стоимость 1 галлона бензина составляет x фунтов сколько денег он сбережёт, если

MCKiri4PrO · Answer

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