Предмет: Информатика, автор: aRtEm4792

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

НАпишите на паскале

Ответы

Автор ответа: BobbyFresnel
1

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Where(p -> p mod 10 = 3).Max.Print

end.

Приложения:

aRtEm4792: var
a, s: integer;
begin
s:= 0;
readln(a);
while a<>0 do begin
if (a mod 3 = 0) and (a mod 10 = 8) then
s := s + a;
readln(a);
end;
writeln(s)
end.
aRtEm4792: все равно спасибо
aRtEm4792: она тогда не родилась
aRtEm4792: ладна спс,я еще раз задачу опубликую надеюсь напишут на паскале вида которого я сверху прислал,пока
Похожие вопросы