22.Составить программу, проверяющую длится ли введенное с клавиатуры число x на введенное с клавиатуры число y без остатка или нет.
10-11 класс
|
program abc;
var x, y : integer;
begin
writeln('Введите X:');
readln(x);
writeln('Введите Y:');
readln(y);
if (x mod y)=0 then writeln(x, ' делится на ', y, ' без отстатка.')
else writeln(x, ' делится на ', y, ' с отстатком.');
readln;
end.
var x,y:integer;
Begin
read(x,y);
writeln('Остаток ', x mod y);
End.
Другие вопросы из категории
элемент с номером 20-N
сумму элементов и номера положительных
элементов.
2)
содержит единственное целое число N(1<=N<=1000)
Формат выходных данных
выведите ответ к задаче
Вывести индексы его начала и конца.
диаметр колеса автомобяля хсм колесо требует замены через н оборотов.
Какое расстояние проедет автомобиль до замены колеса?
Читайте также
1) Составить программу, проверяющую, является ли заданное натуральное число совершенным, то есть равным сумме своих положительных делителей, кроме самого этого числа.
2) Напечатать числа в виде следующей таблицы:
5 5 5 5 5
6 6 6 6
7 7 7
8 8
9
1.Составьте программу, проверяющую, верно ли
утверждение, что введенное вами целое число является четным.
2.
1. Население некоторой страны в 1904 году составляло а человек. По переписи населения, проведенной в прошлом году, зарегистрировано b человек. Составить программу вычисления среднегодового прироста населения за этот период.
2. Составить программу определения, является ли введенный год високосным?
3. Составить программу определения размера денежного вклада через t лет после его внесения, если заданы размер начального взноса n и банковский процент b.
4. Для условий из предыдущей задачи определить, через сколько лет размер вклада превысит вдвое первоначальный взнос.