Написать программу в паскале Автобус провозит 50 пассажиров. Из них 10 едут до первой станции,
20 - до второй, а остальные до конечной. стоимость билетов до каждой станции соответственно равна a, b, c. Определите сколько рейсов должен делать автобус. чтобы выручка составила К руб?
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Ашак
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 Рейсов нужно совершить нужно совершить.
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 Рейсов нужно совершить нужно совершить.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
