Create a program in Pascal: Given a three-digit number, determine whether it is divisible by 3. If yes, output the result
| December 10, 2020 | education
Create a program in Pascal: Given a three-digit number, determine whether it is divisible by 3. If yes, output the result of division, if not, output the phrase – “the number is not a multiple of 3”.
Pascal:
program prog;
uses crt;
var a: integer;
begin
write (‘Enter a three-digit number a =’);
readln (a);
if a mod 3 = 0 then writeln (‘Result =’, a / 3)
else writeln (‘The number is not a multiple of 3’);
end.
One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.
