Программа в паскаль. 1)в лагерь отъезжают n детей.сколько автобусов потребуется для перевозки детей,если в один автобус можно посадить 40 человек? 2)сколько парт нужно для n учеников,если за одной партой сидят двое? будет ли свободное место? 3)дана сумма денег s и стоимость одного мороженного м.сколько мороженых можно купить на эти деньги? будет ли сдача? если будет,то сколько?
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.