них,которые нечетны.Остальные отсавить без изменения.

3.ВВедите коль-во учащихся в группе по инфе и четвертную отметку каждого учащегося. Выч. средний бал успеваемости по инфе в группе за четверь.

4.НАйти сумму целых положительных чисел, больших 20, меньших 100 и кратных 3.

5.Вычислить наименьшее общее кратное 2 чисел (hok (a,b)). Для вычесления воспользуйтесь ФОРМУЛОЙ a*b=HOД*HOK

Ответы:

1.

var a:longint,

beginread(a),

if (a mod 10) = ((a div 10) mod 10) then

writeln(YES) else

writeln(NO),

end.

2.

var a,b,c:longint,

begin

read(a,b,c),

if (a mod 2) = 1 then

a:=a*2,

if (b mod 2) = 1 then

b:=b*2,

if (c mod 2) = 1 then

c:=c*2,

end.

4

var a,b,c:longint, begin for a:=21 to 99 do b:=b+a, writeln(b), end.

5.

var a,b:longint,

function nod(a,b:longint):longint,

var c,d:longint,

begin

while (a&gt,0) or (b&gt,0) do 

begin    c:=a mod b,   

a:=c,   

if a=0 then    break,   

d:=b mod a,   

b:=d,   

if b=0 then    break, 

end, 

if d&gt,0 then

nod:=d else

nod:=c,

if (a=b) or (a=1) or (b=1) then

nod:=1,

end,

begin

read(a,b),

if a&gt,=b then

writeln(a*b div nod(a,b))

else writeln(a*b div nod(b,a)),

end.