Ответ:
program 1;
a:integer;
Begin
write ('a= ');
readln (a);
if (a mod 3=0) then
writeln ('да делится) ;
else
writeln('не делится');
readln;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program 1;
a:integer;
Begin
write ('a= ');
readln (a);
if (a mod 3=0) then
writeln ('да делится) ;
else
writeln('не делится');
readln;
end.