НАПИСАТЬ ПОЛНУЮ ПРОГРАММУ В ПАСКАЛЬ АБЦ!! N школьников делят K яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок достанется каждому
5-9 класс
|
школьнику? Программа получает на вход числа Nи K и должна вывести искомое количество яблок.
var
n,k:integer;
begin
writeln('Введите кол-во школьников: ');
read(n);
writeln('Сколько яблок у них? ');
read(k);
writeln('Каждый школьник получит ',k div n,' яблок(у)');
end.
Другие вопросы из категории
размещаться по два лежака Туристы переставили лежаки так, как показано ка рисунке. Какая команда пропущена (заменена знаком вопроса) в алгоритме расстановки лежаков к первоначальному виду
Читайте также
Программа получает на вход числа n и k и должна вывести количество школьников, которым достанется яблок меньше, чем некоторым из их товарищей.
При решении этой задачи нельзя пользоваться условной инструкцией if и циклами
распредилить, какие числа меньше нуля, но как вычислить среднее арифметическое, не зная точное кол-во отрицательных элементов? Желательно написать полной программой. Заранее спасибо с:
прямоугольной таблицы.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Написал программу следующим образом: