Проверка кратности числа

Задача

Определить, кратно ли заданное число трем; если нет, вывести остаток.

Решение

 

Описание переменных: 

num — число;
modulo — остаток от деления.

Алгоритм решения задачи: 

Найти остаток от деления. Если остаток равен нулю, то число кратно трем.

Программа на языке Паскаль: 

 

var
    num,modulo: integer;
begin
    write('Number: ');
    readln(num);
    modulo:= num mod 3;
    case modulo of
        0: writeln(num,' divisible by 3');
        1: writeln(num,' is not divisible by 3, the remainder is equal 1');
        2: writeln(num,' is not divisible by 3, the remainder is equal 2');
    end;
end.

 

Тема

Условные операторы

Уровень

Простые задачи

Комментарии

Эта программа подойдет для нахождения остатка числа a при делении на b:

Program name;
Var a,b,r:integer;
Begin
writeln('Enter the numbers');
repeat
readln(a,b);
r:=a mod b;
if r=0 then
begin
writeln('divisible by',b);
end
else
writeln('remainder= ',r);
until a=0
end.

var a: longint;
begin
write('Введите значение  ');
readln(a);
if (a mod 3)=0 then writeln ('kratno trem') else writeln ('ne kratno')
end.

Добавить комментарий

CAPTCHA
Этот вопрос задается для того, чтобы выяснить, являетесь ли Вы человеком или представляете из себя автоматическую спам-рассылку.
CAPTCHA на основе изображений
Введите символы, которые показаны на картинке.