Var
num: integer;
begin
readln(num);
writeln('Больше 10? ', num mod 10 + num div 100 + num div 10 mod 10 > 10);
end.
Program mathlover12;
const
n = 6; {Количество элементов массива}
var
a:array[1..n] of integer;
s:string;
i,min,max: integer;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{вводим элементы массива}
writeln; writeln('Введите ',n,' чисел:');
for i:=1 to n do read(a[i]);
{Ищем min и max}
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
{Выводим произведение min и max}
writeln; writeln;
writeln('Произведение min и max равнo ',min*max);
end.
<u><em>Укажите истинное высказывание (отметьте точкой).</em></u>
1) Алгоритм всегда представляет собой некоторую последовательность вычислений.
<em>2) Алгоритм может представлять собой некоторую последовательность вычислений, а может - последовательность действий не математического характера</em>.(верно)
3) Алгоритм всегда представляет собой последовательность действий не математического характера.
Текст на внешних носителях сохраняется в виде файла. Преимущества компьютерного документа: Преимущества компьютерного документа: Компактное размещениеКомпактное.
