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

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.