Чем могу, тем Информатика в современном мире имеет огромнейшее значение. Технологии буквально везде, соответственно нужно учиться с ними работать. Компьютеры сейчас есть в каждом офисе, каждой школе, в медицине используют роботов-хирургов, и это ещё не всё. Каждый человек должен научиться выполнять простейшие действия, хотя бы научиться работать с компьютером, это позволит значительно облегчить ряд повседневных действий..Чего стоят обычные браузерные поисковики, стоит только задать вопрос и сразу же получишь на него ответ. Это очень удобно, не так ли? (дальше у меня кончилась фантазия, однако материал для размышлений у вас есть)
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 Рейсов нужно совершить нужно совершить.
Информатика в современном мире имеет огромнейшее значение. Технологии буквально везде, соответственно нужно учиться с ними работать. Компьютеры сейчас есть в каждом офисе, каждой школе, в медицине используют роботов-хирургов, и это ещё не всё. Каждый человек должен научиться выполнять простейшие действия, хотя бы научиться работать с компьютером, это позволит значительно облегчить ряд повседневных действий..Чего стоят обычные браузерные поисковики, стоит только задать вопрос и сразу же получишь на него ответ. Это очень удобно, не так ли?
(дальше у меня кончилась фантазия, однако материал для размышлений у вас есть)