них,которые нечетны.Остальные отсавить без изменения.
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>,0) or (b>,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>,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>,=b then
writeln(a*b div nod(a,b))
else writeln(a*b div nod(b,a)),
end.