проверить делится ли введенное с клавиатуры число х на 2,3,5 паскаль
10-11 класс
|
var a: integer;
begin
write ('Введите число: ');read (a);
if (a mod 2 = 0) then writeln ('Число делится на 2');
if (a mod 3 = 0) then writeln ('Число делится на 3');
if (a mod 5 = 0) then writeln ('Число делится на 5');
if (a mod 2 = 0) and (a mod 3 = 0) and (a mod 5 = 0) then writeln ('Ваше число делится на 2,3,5') else writeln ('Ваше число не делится на 2,3,5 одновременно');
end.
Добрый день!
Число делится на 2,3,5 одновременно?
Другие вопросы из категории
№1. Вычислить сумму и число положительных элементов матрица А[N,N], находящихся над главной диагональю.
№2. Дана вещественная матрица А размера n x m. Определить k - количество "особых" элементов массива А, считая его элемент особым, если он больше суммы остальных элементов его столбца.
Помогите, пожалуйста.
выдать их номера?
решаем как то так как во вложении. помогитееее
1) k:=5;
2) k:=10;
3) k:=-0;
4) k:='5';
5) k:=ord(d);
6) k:=ord(d)-ord('0');
Если k: 0 .. 9;
Читайте также
а) Четные числа делит на 2 и результат выводит на экран
б) нечетные числа выводит на экран без изменений
"делятся на"использовать стандартную функцию MOD,которая определяет остаток отделение числа А на число В.Примечание таблица R целочисленная.Построение блок-схемы,алгоритм и бейсики.Заранее большое спасибо))
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
только два числа: 1 и P. Определить, является ли введенное с клавиатуры число простым.
2) Дано число n. Верно ли, что это число содержит ровно 3 одинаковых цифры?
Разработать алгоритм программы, которая проверяет, является ли введенный с клавиатуры массив убывающей последовательностью чисел.