1)
var a, b: real;
begin
readln(a, b);
if (a > b) then writeln(a)
else
if (a < b) then writeln(b)
else
writeln('a = b');
<span>end.
2)
var a, b, c: integer;
begin
readln(a);
b := a mod 100 div 10;
c := a mod 10;
a := a div 100;
write('a) ');
if (a > c) then writeln(a)
else
if (a < c) then writeln(c)
else
writeln('=');
write('b) ');
if (a > b) then writeln(a)
else
if (a < b) then writeln(b)
else
writeln('=');
write('c) ');
if (c > b) then writeln(c)
else
if (c < b) then writeln(b)
else
writeln('=');
<span>end.
3 даже представить не могу, извините:)</span></span>
Var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
if (i mod 3 = 0) and (i mod 5 <> 0) then s:=s+i;
writeln(s);
end.
var a:array of integer;
N,i,k:integer;
function f(a:integer):Boolean;
begin
if (a mod 2=0) then f:=True else
f:=False;
end;
BEGIN
k:=0;
writeln('Введите количество элементов массива');
readln(N);
SetLength(A,N);
writeln('Введите массив');
for i:=0 to N-1 do begin
read(a[i]);
if (f(a[i])=True) then k:=k+1;
end;
writeln('Количество чётных элементов массива = ',k);
end.
Вводите с клавиатуры кол-во элементов массива, а затем сам массив.