ЗАДАЧА 1

var a:integer;

begin

writeln('Введите число');

readln(a);

if a mod 2=0

then writeln('Четное число')

else writeln('Нечетное число');

end.

ЗАДАЧА 2

var a,b,c:integer;

begin

writeln('Введите длину первой стороны');

readln(a);

writeln('Введите длину второй стороны');

readln(b);

writeln('Введите длину третьей стороны');

readln(c);

if (a=b)and(b=c)and(a=c)

then writeln('Треугольник является равносторонним');

if (a=b)or(b=c)or(a=c)

then writeln('Треугольник равнобедренный');

if (a<>b)and(b<>c)and(a<>c)

then writeln('Треугольник разносторонний');

end.

ЗАДАЧА 3

var a,b,c,d:integer;

begin

writeln('Введите длину первой стороны');

readln(a);

writeln('Введите длину второй стороны');

readln(b);

writeln('Введите длину третьей стороны');

readln(c);

writeln('Введите длину четвертой стороны');

readln(d);

if (a=b)and(b=c)and(c=d)

then writeln('Четырехугольник является квадратом');

if (a=b) and (c=d)or(a=c)and(b=d)or(a=d) and(c=d) or(b=c) and(d=a)

then writeln('Четырехугольник является прямоугольником');

else Writeln('Четырехугольник является трапецией');

end.

Способ №1

var n,i:integer;

begin

readln(n);

i:=1;

while i<=n do

 if i mod 2=0 then

 begin

  writeln(i);

  i:=i+1;

 end;

readln;

end.

Способ №2

var n,i:integer;

begin

readln(n);

for i:=1 to n do

 if i mod 2=0 then

  writeln(i);

readln;

end.

Способ №3

var n,i:integer;

begin

readln(n);

i:=1;

repeat

 if i mod 2=0 then

  begin

   i:=i+1;

   writeln(i);

   end;

until i=n;

end.

Домашнее задание

Var i,n:integer;

begin 

writeln('Введите число');

readln(i);

n:=0;

ehi le i<>0 do begin 

i:=i div 10;

n:=n+1;

end;

writeln('Количество цифр',n);

end.