1)var a:integer; begin writeln('Введите число'); readln(a); if (a mod 2=0) then write('Чётное ') else write('Нечётное '); if (a div 100>=1)then write('трёхзначное число') else if (a div 10>=1)then write('двузначное число') else writeln('однозначное число'); end. 2)var a,b,c:real; begin writeln('Введите 1 число'); readln(a); writeln('Введите 2 число'); readln(b); writeln('Введите 3 число'); readln(c); if (a<b)and (b<c) then begin a:=2*a; b:=2*b; c:=2*c;end else begin a:=(-1)*a; b:=(-1)*b; c:=(-1)*c; end; writeln(a); writeln(b); writeln(c); end. 3)var a,b,c:integer; begin writeln('Введите 1 число'); readln(a); writeln('Введите 2 число'); readln(b); writeln('Введите 3 число'); readln(c); if a=b then writeln('3') else if b=c then writeln('1') else writeln('2'); end.
