Var a,b:integer;
d:string;
begin
writeln('введите число');
readln(b);
Str (b, d);
for a:=length(d) downto 1 do begin
write(d[a]);
end;
writeln('');
<span>end.
</span>
Const nmax=50;
var a:array[1..nmax]of integer;
i,n,sum:integer;
begin
readln(n);//количество элементов массива
sum:=1;
for i:=1 to n do
begin
writeln('Введите ',i,' элемент массива');
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2= 0 then
begin
sum:=a[i]*sum;
write(a[i],' ');
end;
writeln('sum:',sum);
end.
Ввода (клавиатура)
вывода (принтер. монитор)
хранения (databank)
(X < 16)
НЕ (X четное), следовательно, (X нечетное).
Между условиями стоит "И", следовательно, они должны выполнять одновременно.
X < 16 И X нечетное.
Нам нужно наибольшее.
Ответ: 15.