Var a,b:integer;begina:=20;b:=21;repeata:=a+b;b:=b+1;until (b>99);writeln(a);end.
1)
Program n1;
var x: real;
begin
readln(x);
if(x mod 2=0) then do writeln('четное);
else
writeln('нечетное');
end.
2)
Program n2;
var x, y: real;
begin
if(x mod 2=0) or (y mod 2=0) then do writeln('да');
else
writeln('нет');
end.
3)
Program n3;
var x: real;
begin
readln(x);
if(x<8) and (x>-8) then do writeln('нет');
else
writeln('да');
end.
B64F (16) = 11*16^3 + 6*16^2 + 4*16^1 + 15*16^0 = 45056 + 1536 + 64 + 15=
= 46671 (10)
Var
k:real;
i,:integer;
begin
k:=0;
for i:=1 to 20 do
k:=k+1/i;
write(k);
end.