Главная

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

сб, 09/24/2011 - 11:02 — tech
Темы учебника
Условные операторы
Задача: 

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

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

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.

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

Комментарии

чт, 10/06/2011 - 18:51 — Гость

другой вариант

Эта программа подойдет для нахождения остатка числа 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.

  • ответить
сб, 12/28/2013 - 15:21 — Гость

еще проще

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

  • ответить