Регистрация
DVSHV
27.02.2023 05:48
Информатика
Есть ответ 👍

Написать программу в паскале автобус провозит 50 пассажиров. из них 10 едут до первой станции, 20 - до второй, а остальные до конечной. стоимость билетов до каждой станции соответственно равна a,b,c. определите сколько рейсов должен делать автобус. чтобы выручка составила к руб?

267
299
Посмотреть ответы 2

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

Влад5055
Влад5055
4,8(33 оценок)

var a, b,c,k,d,e,g,h : integer;

var f : integer;

begin

writeln('введите стоимости билета за проезд до первой, до второй и до конечной станции через пробел : ');

readln(a,b,c);

writeln('введите сколько рублей должна быть конечная выручка : ');

readln(k);

d : = 10*a;

e : = 20*b;

g : = 20*c;

h : = d+e+g;

f : = h div k;

writeln(f, ' рейсов нужно совершить нужно совершить.');

end.

лог :

введите стоимости билета за проезд до первой, до второй и до конечной станции через пробел :

1

1

1

введите сколько рублей должна быть конечная выручка :  

50

1 рейсов нужно совершить нужно совершить.

marusja82
marusja82
4,6(71 оценок)
Var a,b: integer; begin write('a='); readln(a); write('b='); readln(b); while (a< > 0)and(b< > 0) do     if a> b then a: =a mod b else b: =b mod a; writeln('нод=',a+b); end.пример: a=125b=50нод=25

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