Var a, b, n:integer ;
Begin
A:=10;
B:=33;
N:=0;
While a<=b do begin
If a mod 3=0 then begin
Write(' a=', a) ;
N:=n+1;
End;
A:=a+1;
Writeln(' n=', n) ;
End.
2)Пишу на QBasic
INPUT A
IF A MOD 3 =0 THEN
PRINT "да"
ELSE
PRINT "нет"
END IF
3)
INPUT B
IF A>B THEN
C=A+B
A=A*B
B=C
C= A+B
B=A*B
A=C