Ответ:
Программа на паскале:
const
MAX_N = 20001;
var
a: array[1 ... MAX_N] of integer;
n, i, j, p, maxp: integer;
begin
i : = 1;
read (a[i]) ;
while a[i] 0 do
begin
inc (i) ;
read (a[i]) ;
end;
n : = i - 1;
maxp : = 0;
for i : = 1 to n do
for j : = 1 to n do
begin
p : = a[i] * a[j];
if (p mod 26 = 0) and (p > maxp) then
maxp : = p;
end;
if maxp = 0 then writeln ('Not found')
else writeln (maxp) ;
Объяснение:
Орган зрения ,<span>с </span>помощью<span> глаз люди различают цвета, </span>воспринимают<span> зрительную</span>информацию<span>, к которой </span>относятся<span> и текстовая, и числовая, и графическая; ... Практически около 90% </span>информации человек<span> получает при помощи органов зрения (</span>визуальный<span>)</span>
3) При составлении алгоритмов используют величины целого, вещественного, логического, символьного и литерного типов.
4) 2010 - целочисленный
14.48 – вещественный
'Да' – символьный
FALSE - логический
'142' – символьный
1,4 • 105 - вещественный
123Е-2 – может быть, как вещественным, целочисленным или символьным.
5) а) вес человека - вещественный
б) марка автомобиля - символьный
в) год вашего рождения - символьный
г) площадь фигуры - вещественный
д) название месяца года - символьный
е) количество мест в самолете - целый
Var
x,f:real;
begin
Write('Введите x: '); Readln(x);
if (x>-2.4) and (x<5.7) then f:=sqr(x)
else f:=4;
Writeln('F=',f)
end.
var
x,f:real;
begin
Write('Введите x: '); Readln(x);
if (x>0.2) and (x<0.9) then f:=sin(x)
else f:=1;
Writeln('F=',f)
end.
var
a,b,c:real;
begin
Write('Введите три числа: '); Readln(a,b,c);
Write('Условие ',a,'<',b,'<',c);
if (b>a) and (b<c) then Writeln(' выполняется.')
else Writeln(' не выполняется.');
Write('Условие ',b,'>',a,'>',c);
if (a<b) and (a>c) then Writeln(' выполняется.')
else Writeln(' не выполняется.')
end.
Распечатать таблицу
значений функции F для x,
изменяющегося в интервале от x0
до xk с шагом h.
Значения x0, xk,
h вводятся пользователем.
var x,f,h,x0,xk,a:real;
const b=3;
BEGIN
WRITELN('AAAAEOA X0,x, Xk,h');
READLN(X0,x, Xk,a);
x:=x0;
while x<3 do
begin
F:=a*x+cos(x)+sqrt(ln(abs(x-3)));
end;
write(f:4:3);
write(' ');
while x=3 do
begin
f:=(x*x-b*b)+cos (pi)*x;
end;
write(f:4:3);
write(' ');
while x<3 do
begin
F:=(x-b)*sin(2*pi)*x;
end;
write(f:4:3);
<span>end.</span>