сервис вопросов и ответовДано двузначное числи . Определит.
5-9 класс|
|
А) кратна ли трем сумма его цифр
Б) кратна ли сумма его цифр числу a.
32565
24 янв. 2016 г., 23:50:34 (8 лет назад)
TroLLolOShkA2
25 янв. 2016 г., 1:58:27 (8 лет назад)
А)
var n,m,k:integer;
begin
readln(n);
m:=n div 10;
k:=n mod 10;
if (m+k) mod 3 = 0
then writeln('Сумма чисел числа ',n,' кратна 3')
else writeln('Сумма чисел числа ',n,' не кратна 3');
end.
Б)
var n,m,k,a:integer;
begin
readln(n,a);
m:=n div 10;
k:=n mod 10;
if (m+k) mod a = 0
then writeln('Сумма чисел числа ',n,' кратна ',a)
else writeln('Сумма чисел числа ',n,' не кратна ',a);
end.
Помог ставь "Лучший ответ"
Ответить
Другие вопросы из категории
помогите составить примеры по 3 примера
Деклоративные и процедурные высказывания
Я знаю что...
Я знаю как...
3.Злая мачеха отправила падчерицу к роднику за водой.Вот тебе 2 ведра, в одно из них входит 9 литров воды, а в другое 5 литров. Но ты должна принести
домой ровно 3 литра воды.-сказала она бедной девушке. как должна действовать падчерица, чтобы выполнить поручение?
запросите у пользователя курсы доллара и евро на сегодняшний день и имеющиеся у него рублёвую сумму, рассчитайте сколько долларов и евро он сможет
купить. Помогите написать алгоритм, пожалуйста
Срочно! Помогите!!! Напишите для Робота алгоритм,закрашивающий все клетки,расположенные выше горизонтальной стены непосредственно над ней. Робот должен
закрасить только клетки,удовлетворяюшие данному условию. Например, для приведённого выше рисунка Робот должен закрасить следущие клетки (см.рисунок).
Читайте также
Напишите пожалуйста, 3 программы на Pascal'е: 1. Дано целое число. Если оно положительное, то прибавить к нему 1, если же нет, то найти остаток
от деления этого числа на 2.
2. Ввести двузначное число. Определить, какая цифра в числе больше.
3. Дано число. Является ли число 7 его делителем?
1)Определить, является ли числоа делителем числа b. Даны вещественные числа х и у, не равные друг другу. Меньшее из
этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
2)Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Вы находитесь на странице вопроса "Дано двузначное числи . Определит.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.