Информатика: Найти произведение 2х максимальных чисел из 3х

svetbuxzp51

05.10.2020 02:37

Информатика

Есть ответ 👍

Найти произведение 2х максимальных чисел из 3х

236

446

Посмотреть ответы 2

Ответы на вопрос:

kristina1333313

Информатика

4,8(70 оценок)

Var x,y,i,min,max1,max2: integer; begin writeln(', введите поочередно 3 числа'); readln(x); readln(y); readln(i); if (x< y) and (x< i) then begin min: =x; max1: =y; max2: =i; end; if (i< y) and (i< x) then begin min: =i; max1: =y; max2: =x; end; if (y< x) and (y< i) then begin min: =y; max1: =x; max2: =i; end; writeln('минимальное число =',min); writeln('произведение 2-х максимальных =',max1*max2); end. пример работы: , введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192