Напиши программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3.
Количество чисел не превышает 1000. Введённые числа не превышают 10000. Программа должна вывести одно число — минимальное число, оканчивающееся на 3.
qwewrer:
помогите!
23
13
33
Ответы
Ответ дал:
1
Ответ:
готово (Pascal)
Объяснение:
program minimum3;
var
n, i, min, zn: integer;
begin
Write('Введите количество чисел (не более 1000):');
ReadLn(n);
min := 9993;
WriteLn('Введите числа (каждое не более 10000):');
for i := 1 to n do
begin
Write('Введите ',i,' число: ');
ReadLn(zn);
if (zn < min) and ((zn mod 10) = 3) then min := zn;
end;
WriteLn('Минимальное число, окнчивающееся на 3 равно ', min);
end.
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
1 год назад
7 лет назад