Программа в Паскаль.

1) В лагерь отъезжают N детей. Сколько автобусов потребуется для перевозки детей, если в один автобус можно посадить 40 человек?

2) Сколько парт нужно для N учеников, если за одной партой сидят двое? Будет ли свободное место?

3) Дана сумма денег S и стоимость одного мороженного М. Сколько мороженых можно купить на эти деньги? Будет ли сдача? Если будет, то сколько?

1 задача.

var a, b, c:integer; begina:=40; writeln ('Введите кол-во детей: ') ; read (b) ; c:=b div a; writeln ('Потребуется ', c,' автобуса') ; end.

2 задача.

var a, b, c, d:integer; beginwrite ('Введите кол-во учеников: ') ; read (a) ; c:=a div 2; writeln ('Нужно ', c,' парт на ', a,' учеников') ; d: = a mod 2; if d=0 then beginendelsewriteln ('Останется ', d,' место') ; end.

3 задача.

var a, b, c, d:integer; beginwriteln ('Введите сумму денег: ') ; read (a) ; writeln ('Введите стоимость одного мороженного: ') ; read (b) ; c:=a div b; writeln ('Вы можете купить ', c,' мороженых ') ; d:=a mod b; writeln ('У вас останется ', d,' денег') ; end.