Задачка для Pascal. Дано 3 числа. Отыскать творение максимального и среднего.
Задачка для Pascal. Дано 3 числа. Отыскать произведение наибольшего и среднего.
Задать свой вопросvar
A: array [1..3] of Integer;
i, imin, imax, imid: Integer;
begin
Write('Введите 3 целых разных числа: ');
Readln(A [1], A [2], A [3]);
if (A [1] = A [2]) or (A [2] = A [3]) or (A [1] = A [3]) then begin
Writeln ('Имеются схожие числа!');
Exit;
end;
imin := 1;
imax := 1;
for i := 2 to 3 do begin
if A [i] lt; A [imin] then
imin := i;
if A [i] gt; A [imax] then
imax := i;
end;
for i := 1 to 3 do begin
if (i lt;gt; imin) and (i lt;gt; imax) then
imid := i;
end;
Writeln ('Творение наибольшего и среднего числа = ' + IntToStr (A [imax] * A [imid]));
end;
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.