Даны 2 целых числа х и у.Вывести на экран монитора остаток от деления числа х на число у.Числа х и у ввести с клавиатуры.
5-9 класс
|
program primer;
uses
crt;
var
x,y:integer;
begin
writeln('Введите x и y');
readln(x,y);
writeln('Остаток от деления ',x, ' на ',y, ' равен ',x mod y);
end.
Другие вопросы из категории
написать программу, которая в последовательности целых чисел определяет среднее арифмитическое чисел кратных 4. Последовательность целых чисел заканчивается 0. Гарантируется,что в последовательности хотя бы одно число кратное 4
Читайте также
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
Вводятся три числа. Вывести на экран число с минимальной суммой цифр.
Помогите пожалуйста в Паскале