Var a,n:integer; beginwriteln('введите число больше 100 до которого проверять'); readln(n); for a:=n downto 100 do begin if (a mod 3 = 0) then writeln(a); end; end.
0 votes Thanks 0
антагонист
var a,n:integer; begin writeln('введите число меньше 100 до которого проверять'); readln(n); if (n<100) or (n=100) then writeln('таки не кошерный ответ получается'); for a:=n downto 100 do begin if (a mod 3 = 0) and (n>100) then writeln(a) end; end.
Answers & Comments
Verified answer
Var a,n:integer;beginwriteln('введите число больше 100 до которого проверять');
readln(n);
for a:=n downto 100 do begin
if (a mod 3 = 0) then writeln(a);
end;
end.
begin
writeln('введите число меньше 100 до которого проверять');
readln(n);
if (n<100) or (n=100) then writeln('таки не кошерный ответ получается');
for a:=n downto 100 do begin
if (a mod 3 = 0) and (n>100)
then writeln(a)
end;
end.