Нужно составить программу (Pascal) определяющую является ли число А кратным числу В.
5-9 класс
|
var a,b: integer;
begin
readln(a);
readln(b);
if (a mod b)=0 then
writeln('Число кратно')
else writeln('Число не кратно');
end.
Другие вопросы из категории
противоречие
противоположность
2 задание
укажите лишнее
монитор
графопостроитель
мышь
3 задание
укажите лишнее
тождество
пересичение
подчинение
соподчинение
ЗАРАНЕЕ БЛАГОДАРЮ
))
var n:array [1..20] of integer;
Напишите программу, которая определяет площадь четырехугольника по известным значениям его 4ех сторон и одной диагонали.
Читайте также
Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100
Пример ввода:567.
Пример вывода:сумма цифр числа 567-четное число
Пример ввода:
123
Пример вывода:
Число 123 кратно 3
такого: var a,b,c:(integer)-целые; l,k,n:(real)-вещественные), найти сумму первых двух чисел, частное второго и третьего числа и утроить сумму трёх чисел. мне нужно составить программу дальше я знаю только начало: program ur1; var a,b,c:integer; l,k,n:real; begin и всё я дальше не могу сделать, помогите полажуйста чем можете!
Задача 1
составить программу которая запрашивает целое число не равное нулю сообщает положительное они или отрицательное и при этом положительное число уменьшает в 2 раза, отрицательные возводит в квадрат .
Задача 2
составить программу , которая определяет является ли введенное число нечетным и выводит на экран сообщение да или нет .