Определите является ли число полным кратным 5
10-11 класс
|
var
a:real;
begin
write('Введите число '); readln(a);
if (frac(a) = 0) and( trunc(a) mod 5 = 0) then
writeln('Число ', a ,' кратно 5')
else
writeln('Число ', a ,' некратно 5')
end.
Другие вопросы из категории
Группа файлов
1)cabinda.xls
2) cubic.xlsx
3) irbic.xls
4) tobias.xls
Маски
1) ??bi*.xls
2) ??bi*.xls*
3) **bi*.xls*
4) ??bi*.x*
Пожалуйста поподробнее. Заранее спасибо
чем у последующего
линейной функции и график системы уравнений.
Читайте также
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
только два числа: 1 и P. Определить, является ли введенное с клавиатуры число простым.
2) Дано число n. Верно ли, что это число содержит ровно 3 одинаковых цифры?
оно четным или отрицательным.(Паскаль)
Или так: Из 16 -ти чисел,сделайте для каждого вывод,является ли оно четным или отрицательным .(Паскаль)
Помогите пожалуйста,оченьььь срочно надо!Буду благодарна за решение ,спасибо!!!!!!!
"делятся на"использовать стандартную функцию MOD,которая определяет остаток отделение числа А на число В.Примечание таблица R целочисленная.Построение блок-схемы,алгоритм и бейсики.Заранее большое спасибо))