Программа в Паскаль.
1)В лагерь отъезжают N детей.Сколько автобусов потребуется для перевозки детей,если в один автобус можно посадить 40 человек?
2)Сколько парт нужно для N учеников,если за одной партой сидят двое?Будет ли свободное место?
3)Дана сумма денег S и стоимость одного мороженного М.Сколько мороженых можно купить на эти деньги?Будет ли сдача?Если будет,то сколько?
1)В лагерь отъезжают N детей.Сколько автобусов потребуется для перевозки детей,если в один автобус можно посадить 40 человек?
2)Сколько парт нужно для N учеников,если за одной партой сидят двое?Будет ли свободное место?
3)Дана сумма денег S и стоимость одного мороженного М.Сколько мороженых можно купить на эти деньги?Будет ли сдача?Если будет,то сколько?
Answers & Comments
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.