Регистрация
irinkacs
13.05.2020 23:42
Информатика
Есть ответ 👍

Чисел из последовательности натуральных чисел. Программа получает на вход натуральные числа, количество введённых чисел неизвестно (но не
менее двух), последовательность чисел заканчивается числом 0 (0 — признак
окончания ввода, не входит в последовательность). Количество чисел не
превышает 1000. Введённые числа не превышают 10 000.
Программа должна вывести одно число: произведение двух чисел, значения
которых в данной последовательности наименьшие.
Пример работы программы:
Входные данные
10
7
8
9
0
Выходные данные
56
РЕШИТЕ УМОЛЯЮ А ТО МНЕ ППЦ ОТ РОДИТЕЛЕЙ РЕШИТЕ

208
222
Посмотреть ответы 1

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

sgymgjvb
sgymgjvb
4,7(23 оценок)
Prime : =  { получаем первое слово из последовательности } ;   while  { не конец последовательности (не известно от куда аффтар получает слова ) }   do      begin          slovo : =  { получаем очередное слово последовательности } ;           if length(slovo) < = length(prime) then              begin                  copyprime : = prime;                   n : = 1;                   while (n < = length(slovo)) and (pos(slovo[n], copyprime) > 0 do                      begin                          delete(copyprime, pos(slovo[n], copyprime), 1);                           inc(n);                       end;                   if n > length(slovo) then                      { slovo можно получить из первого слова }                  else                      { нельзя получить slovo из первого слова }              end;       end;  

Популярно: Информатика