помогите срочно надо Дано целое число n. Составьте программу которая выясняет является ли значение переменной n кратным трем.
Answers & Comments
yuliagal
Var n: integer; begin read(n); if n mod 3 = 0 then writeln('yes') else writeln('no') end.
0 votes Thanks 3
220voltvip
Program project1; var s:integer; begin writeln('vedite chislo: '); readln(s); if s mod 3 = 0 then writeln('yavlyaetsa kratnim'); else writeln('ne yavlyaetsa kratnim'); readln; end.
Answers & Comments
n: integer;
begin
read(n);
if n mod 3 = 0 then writeln('yes') else writeln('no')
end.
var s:integer;
begin writeln('vedite chislo: ');
readln(s);
if s mod 3 = 0 then
writeln('yavlyaetsa kratnim');
else
writeln('ne yavlyaetsa kratnim');
readln;
end.