Помогите пожалуйста! В заданной последовательности целых чисел определите сумму…

Question

34

Помогите пожалуйста! В заданной последовательности целых чисел определите сумму элементов кратных 10!

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

vlasov-konst · Accepted Answer

43

vlasov-konst

15 февраля 2023

var n, i, s, a: integer; begin s: =0; writeln ('Введите количество чисел'); readln (n); for i: =1 to n do begin readln (a); if a mod 10=0 then s: =s+a; end; writeln (s); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: