evsyukov1997
?>

Напишите программу, которая в последовательности натуральных чисел определяет сумму двухзначных чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчиваетсячислом 0 (0 - признак окончания ввода, не входит в последовательностьКоличество чиселпревышает 1000. Введённые числане превышают 30000.Программа должна вывести одно число: сумму двухзначных чисел, кратных 5.Пример работы программы:неВыходные данныеВходные данные4522451200на пайтоне без типа строка​

Информатика

Ответы

fta1309

var n,i,a,min: integer;

begin

readln(n);

min:=30001

for i:=1 to n do

begin

readln(a)

if (a mod 10 = 4) and (a < min)

then min:= a;

end;

writeln(min)

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Напишите программу, которая в последовательности натуральных чисел определяет сумму двухзначных чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчиваетсячислом 0 (0 - признак окончания ввода, не входит в последовательностьКоличество чиселпревышает 1000. Введённые числане превышают 30000.Программа должна вывести одно число: сумму двухзначных чисел, кратных 5.Пример работы программы:неВыходные данныеВходные данные4522451200на пайтоне без типа строка​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Galinagol559
ALLA1868
Shamsulo
olgusikok
irinasolodova3
monenko
Viktoriya405
Boss5519
bas7572513
tata-novik
Лусине_Ильенков134
Shevtsov1818
agafonovalyudmila346
reception
Zladthesecond577