Нахождение номера максимального значения, кратного 5, в последовательности вводимых чисел

@Yulichka1 · Регистрация: 26.02.2013

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

Нахождение номера максимального значения, кратного 5, в последовательности вводимых чисел.Остановить обработку при вводе признака конца предварительно выбранного пользователем числа.Тип обработки данных - целые.

@кот Бегемот · 04.03.2013, 12:50

Сообщение от Yulichka1

Нахождение номера максимального значения, кратного 5, в последовательности вводимых чисел.Остановить обработку при вводе признака конца предварительно выбранного пользователем числа.Тип обработки данных - целые.

Pascal

var
a,max,nom: integer;
begin
max:=-maxint;
readln(a);
nom:=0;
k:=1;
while a<>0 do
begin
if (a mod 5=0)and(a<>0)and (a>max)then 
begin
max:=a;
nom:=k;
end;
inc(k);
end;
writeln(nom);
end.

@Yulichka1 0 / 0 / 0 Регистрация: 26.02.2013 Сообщений: 13
		1
	Нахождение номера максимального значения, кратного 5, в последовательности вводимых чисел 26.02.2013, 21:51. Показов 1928. Ответов 1 Метки нет (Все метки) Нахождение номера максимального значения, кратного 5, в последовательности вводимых чисел.Остановить обработку при вводе признака конца предварительно выбранного пользователем числа.Тип обработки данных - целые. 0

	04.03.2013, 12:50