Задача на Паскале. Дано число, если оно кратно 3 (трем) - увеличить его на 5, если кратно 2 (двум) - увеличить в 4 раза, если не кратно - увеличить на 1. * Использовать функцию "остаток от деления равен нулю".

Question

Информатика

Астра

10 июля, 16:04

Задача на Паскале. Дано число, если оно кратно 3 (трем) - увеличить его на 5, если кратно 2 (двум) - увеличить в 4 раза, если не кратно - увеличить на 1. * Использовать функцию "остаток от деления равен нулю".

+1

Ответы (1)

Знаете ответ на вопрос?

Алфея · Answer 1

Function f (a, b:integer) : boolean;

begin

f:=a mod b = 0;

end;

var n:integer;

begin

write ('n = ') ;

readln (n) ;

if f (n, 3) then n:=n+5

else if f (n, 2) then n:=n*4

else n:=n+1;

writeln ('n = ', n) ;

end.

Пример:

n = 21

n = 26