В последовательности натуральных чисел определить минимальное число, оканчивающееся на 4

@Hardwell26 · Регистрация: 05.03.2016

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток! Что нужно сделать:

Написать программу на паскале, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число – минимальное число, оканчивающееся на 4.

Задачу задали в школке на выходные, уже почти час пытаюсь как-то реализовать - успеха нет.. Буду очень благодарен, если кто-то поможет, особенно куском кода

Заранее спасибо!

@Puporev · 05.03.2016, 15:38

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
readln(n);
k:=0;//пока нет чисел, оканчивающихся на 4
for i:=1 to n do
 begin
  readln(a);
  if a mod 10=0 then
   begin
    if k=0 then 
     begin
       min:=a;
       k:=1;
     end
   else if a<min then min:=a;
 end;

@Hardwell26 · 05.03.2016, 16:58 **[ТС]**

Спасибо большое!) Не подскажете, где я накосячил?

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program alex1;
var n,k,i,a:integer;
begin
writeln ('Введите число');
readln(n);
k:=0;//пока нет чисел, оканчивающихся на 4
for i:=1 to n do
 begin
  readln(a);
  if a mod 10=0 then
   begin
    if k=0 then 
     begin
       min:=a;
       k:=1;
     end
   else if a<min then min:=a;
 end;
end;
end.

Указывает на min:=a; - ожидалась переменная

Добавлено через 9 минут
UPD нашел косяк и исправил) Сейчас проверю

@Puporev · 05.03.2016, 17:01

Во первых у меня ошибка, нужно if a mod 10=4
а потом у Вас нет переменной min и нет вывода

@Hardwell26 · 05.03.2016, 17:46 **[ТС]**

Хорошо, проблема решена, большое спасибо!)

Новые блоги и статьи Все статьи Все блоги /
Работа с объемным DOM в javascript Htext 04.04.2025 Сегодня прочитал статью тут о расходах памяти в JS, ее утечках и т. п. И вот что вспомнил из своей недавней практики. Может, кому пригодится. Хотя, в той статье об этом тоже есть. Дело в том, что я. . .	Оптимизация производительности Node.js с помощью кластеризации run.dev 04.04.2025 Масштабирование приложений для обработки тысяч и миллионов запросов — обыденная задача для многих команд. Node. js, благодаря своей асинхронной событийно-ориентированной архитектуре, стал популярной. . .	Управление зависимостями в Python с Poetry py-thonny 04.04.2025 Стандартный инструмент для установки пакетов в Python - pip - прекрасно справляется с базовыми сценариями: установил пакет командой pip install и используешь его. Но что произойдёт, когда разные. . .	Мониторинг с Prometheus в PHP Jason-Webb 04.04.2025 Prometheus выделяется среди других систем мониторинга своим подходом к сбору и хранению метрик. В отличие от New Relic, который использует агентный подход и отправляет данные во внешнее хранилище,. . .	Пакет Context в Golang: Управление потоками и ресурсами golander 04.04.2025 Работа с горутинами в Go часто напоминает управление непослушными детьми - они разбегаются кто куда, делают что хотят и не всегда завершаются вовремя. К счастью, в Go 1. 7 появился пакет context,. . .
Контейнеризация React приложений с Docker Reangularity 03.04.2025 Контейнеризация позволяет упаковать приложение со всеми его зависимостями в автономный контейнер, который можно запустить на любой платформе с установленным Docker. Это существенно упрощает процессы. . .	Свой попап в SwiftUI mobDevWorks 03.04.2025 SwiftUI, как декларативный фреймворк от Apple, предоставляет множество инструментов для создания пользовательских интерфейсов. В нашем распоряжении есть такие API как alerts, popovers, action sheets. . .	Антипаттерны микросервисной архитектуры ArchitectMsa 03.04.2025 Хорошо спроектированная микросервисная система может выдержать испытание временем, оставаясь гибкой, масштабируемой и устойчивой к большинству проблем. Такая архитектура обладает высоким уровнем. . .	std::mutex в C++: Советы и примеры использования bytestream 03.04.2025 std::mutex - это механизм взаимного исключения, который гарантирует, что критический участок кода выполняется только одним потоком в каждый момент времени. Это простое, но могущественное средство. . .	Не удержался от оценки концепции двигателя Стирлинга. Hrethgir 03.04.2025 Сколько не пытался - она выдавала правильные схемы, причём случайно рисовала горячие области в середине, холодные по краям, трубки с краёв в низ и магнит в соединяющей, но при этой выдавала описание. . .

@Hardwell26 0 / 0 / 0 Регистрация: 05.03.2016 Сообщений: 12

	В последовательности натуральных чисел определить минимальное число, оканчивающееся на 4 05.03.2016, 15:16. Показов 34215. Ответов 4 Метки нет (Все метки) Всем доброго времени суток! Что нужно сделать: Написать программу на паскале, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное число, оканчивающееся на 4. Задачу задали в школке на выходные, уже почти час пытаюсь как-то реализовать - успеха нет.. Буду очень благодарен, если кто-то поможет, особенно куском кода Заранее спасибо! 0

@Puporev Почетный модератор 64311 / 47608 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	05.03.2016, 17:01
	Во первых у меня ошибка, нужно if a mod 10=4 а потом у Вас нет переменной min и нет вывода 0

@Hardwell26 0 / 0 / 0 Регистрация: 05.03.2016 Сообщений: 12
	05.03.2016, 17:46 [ТС]
	Хорошо, проблема решена, большое спасибо!) 0

В последовательности натуральных чисел определить минимальное число, оканчивающееся на 4

Решение