profile
Опубликовано 6 лет назад по предмету Информатика от emma73

Напишите программу, которая находит произведение двух наименьших чисел из последовательности натуральных чисел. Программа получает на вход натуральные числа, количество чисел неизвестно (но не менее двух), ввод последовательности заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Значения чисел не превышают 30000. Программа должна вывести одно число: произведение двух чисел, значения которых в данной последовательности наименьшие

  1. Ответ
    Ответ дан AnonimusPro
    //PascalABC.NET
    //Версия 3.3.5, сборка 1650
    begin
    var a:=ReadSeqIntegerWhile(x->x<>0).ToList;
    var m:=a.Min;
    a.Remove(m);
    write(m*a.Min);
    end.
Самые новые вопросы