хината19

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

Посмотреть ответы (3)

Ответы

Ответ дал: utopia2

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

Спасибо

Ответ дал: Гость

(for) function sumf(i: integer): real;

begin

k: =1;

sumf: =1; {так как для i1 sum=1}

for i: =1 to n do (n-колличество членов, вводится с клавиатуры)

begin

k: =k*i;

f: =k;

sumf: =sumf+1/f;

end;

(while)

function sumw(i: integer): real;

begin

k: =1;

i: =1;

sumw: =1;

while i< =n do

begin

k: =k*i;

f: =k;

sumw: =sumw+1/f;

end;

(repeat)

function sumr(i: integer): real;

begin

k: =1;

i: =1;

sumr: =1;

repeat

k: =k*i;

f: =k;

sumr: =sumr+1/f;

i: =i+1

until i< n;

Ответ дал: Гость

"солнце" - круг с точкой в центре

"идти" - две ноги

"хлеб" - полукруг

"рот" - сильно вытянутый полуовал

Другие вопросы по: Информатика

Склавиатуры вводят слово и символ. составить программу, которая: а)проверяет есть ли в этом слове заданный символ б)определяет позицию заданного символа в)подсчитывает количество...

01.03.2019 16:30

Сделайте таблицу! в еxcel крупнейшие промышленные корпорации компания «дженерал моторс» находится в сша. она зани¬мается производством автомобилей. компания в начале 90-х гг. име...

09.03.2019 16:33

Работу выполнить в microsoft office excel в следующей таблице приводится прогноз средней дневной температуры на последнюю неделю мая в различных городах европейской части россии. н...

10.03.2019 01:43

Петя и коля пишут друг другу электронные письма в кодировке кои-8. однажды петя ошибся и отправил письмо в кодировке windows. коля получил письмо и, как всегда, прочитал его в кои-...

15.03.2019 02:40

Найди закономерность и продолжи последовательность, написав ещё четыре следующие буквы через запятую, через пробел. (например: a, e, i, m) ответ: a, d, g, j,...

16.03.2019 14:19

Выполните алгоритм, представленный на блок схеме , если известно , что r=5.добрые люди , тупой деффке...

17.03.2019 21:36

Знаешь правильный ответ?

Составить блок схему и написать программу в турбо паскале. .человеку нужно съездить из лондона в эд...

Ответы

Другие вопросы по: Информатика

Популярные вопросы

Больше вопросов по предмету: Информатика

Случайные вопросы

Популярные вопросы