Дано 10 чисел. Отыскать минимальное среди чисел, которые делятся на 5.

Дано 10 чисел. Найти минимальное посреди чисел, которые делятся на 5.

Задать свой вопрос
Eva
На паскале?
Толян Пентюшкин
Да
1 ответ

program n_1;

var a, i, min: integer;

begin

read(a);

min:=0

for i:=1 to 10 do

begin

if (alt;min) and (a mod 5=0) then

min:=a;

end;

writeln(min);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт