Ответы на вопрос:
Ввода-сканер,калькулятор вывода принтер,монитор(выводит зрительную информ.)
var temp,max,max2: integer;
begin
readln(temp);
max: =0;
max2: =0;
while (temp< > 0) do begin
if(temp> max) then begin max2: =max; max: =temp; end
else if(temp> max2) then max2: =temp;
readln(temp);
end;
writeln(max*max2)
end.
Популярно: Информатика
-
Anastasia555563308.04.2021 21:12
-
умник162д25.01.2021 08:47
-
MaykTV2608.02.2020 15:15
-
МарияЧархчян08.03.2021 09:51
-
динара25921.08.2020 12:00
-
akon170806.11.2022 23:31
-
Василина91402.02.2020 21:35
-
bohdanaznetishyna22.08.2021 05:32
-
Sezimka111121.02.2023 19:29
-
fedivvasil1929.01.2023 00:51