Извини, только в паскале шарю)) (знаю решение в паскале)
Var
i,n:integer;
begin
read(n);
for i := 1 to n do
if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
write(i,' ')
<span>end.</span>
Тут все на да и нет сводиться. Слева Нет Справа да.
Вот блок-схема, надеюсь помог)
Var
A: integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
A := (A mod 10)*100 + (A div 10);
WriteLn(A);
End.