N школьников делят K яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок достанется каждому школьнику? НАПИСАТЬ ПРОГРАМУ ДЛЯ ПАСКАЛЯ
Answers & Comments
Pr0gram1st
Ну вот var n,k: integer; begin write('Введите количество школьников: '); readln(n); write('Введите количество яблок: '); readln(k); writeln('Каждому школьнику достанеться ', trunc (k/n)); writeln('В корзине останеться ', k mod n);end.
begin write('Введите количество школьников: '); readln(n); write('Введите количество яблок: '); readln(k); writeln('Каждому школьнику достанеться ', trunc (k/n)); writeln('В корзине останеться ', k mod n); end.
Answers & Comments
var n,k: integer; begin write('Введите количество школьников: '); readln(n); write('Введите количество яблок: '); readln(k); writeln('Каждому школьнику достанеться ', trunc (k/n)); writeln('В корзине останеться ', k mod n);end.
(Программу писал сам)
n,k: integer;
begin
write('Введите количество школьников: ');
readln(n);
write('Введите количество яблок: ');
readln(k);
writeln('Каждому школьнику достанеться ', trunc (k/n));
writeln('В корзине останеться ', k mod n);
end.