сервис вопросов и ответов1.На вход программе даётся число N и N чисел (все натуральные <10000).
5-9 класс|
|
Нужно вывести то число, в котором наименьшее количество цифр.
Если таких чисел несколько, вывести любое из них.Примеры: 4 123 24 167 8762 => 24; 5 13 4 16 100 8 => 4
BEYTULLA
20 янв. 2015 г., 1:14:45 (9 лет назад)
Kate666Moriarty
20 янв. 2015 г., 2:02:41 (9 лет назад)
Задача 1.
var
n, i, lmin, a, min: integer;
begin
readln(n);
lmin:=32000;
for i:=1 to n do
begin
read(a);
if length(inttostr(a))<lmin then begin lmin:=length(inttostr(a)); min:=a; end;
end;
write(min);
end.
Задача 2.
var
i: integer;
s: string;
begin
for i:=1000 to 9999 do
begin
s:=inttostr(i);
if (s[1]=s[4]) and (s[2]=s[3]) then writeln(i);
end;
end.
Писалось в Pascal ABC. Если возникнуть какие-то вопросы или будут ошибки во время выполнения программы, пиши в комментариях
Ответить
Другие вопросы из категории
помогите пожалуйста решить задачу в паскале: Составить программу,проверяющую,является ли заданное натуральное число палиндромом,т.е.
таким,которое читается одинаково слева направо и справа налево(например:23132).
Читайте также
Напишите программу, которая находит произведение двух наибольших чисел из последовательности натуральных чисел. Программа получает на вход натуральные
числа, количество чисел неизвестно (но не менее двух), ввод последовательности заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Значения чисел не превышают 30000. Программа должна вывести одно число: произведение двух чисел, значения которых в данной последовательности наибольшие
написать программу которая в последовательности натур. чисел определяет сумму всех чисел кратных 8 и оканчивающихся на 4.программа получает на вход
натур. числа а также их количество.количество чисел не превышает 1000.программа должна вывести одно число:сумму всех чисел кратных 8 и оканч. на 4
ПОМОГИТЕ, ПОЖАЛУЙСТАА
Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 4 и оканчивающихся на 0. Программа получает на вход целые
числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введеные числа по модулю не превышают 30000. Программа должна вывести число: количество чисел, кратных 4 и оканчивающихся на 0.
Напишите программу, которая в последовательности натуральных чисел определяет сумму двухзначных чисел, кратных 5. Программа получает на вход
натуральные числа, количество введенных чисел не известно, последовательность чисел заканчивается 0.
Количество чисел не превышает 100. Введенные числа не превышают 30000.
Программа должна вывести одно число: сумму двухзначных чисел, кратных 5.
Люди! Плиииз, помогите! Т,Т
Напишите программу, которая в последовательности целых чисел определяет количество трехзначных чисел, кратных 7. Программа получает на вход целые
числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000. Про-грамма должна вывести одно число: количество трехзначных чисел, кратных 7
Вы находитесь на странице вопроса "1.На вход программе даётся число N и N чисел (все натуральные <10000).", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.