Дан массив В их N натуральных чисел

Question

Дан массив В их N натуральных чисел. Найдите сумму и кол во элементов кратных заданному числу К (вводится склавиатуры)

Answer 1

74

tellub

10 марта 2023

const N=10; var b: array[1… N]of integer; k,i,sum,amo: integer; beginreadln (k); for i: =1 to N do readln (b[i]); for i: =1 to N do if (b[i] mod k)=0 then begin sum: =sum+b[i]; amo: =amo+1; end; writeln ('Summa chisel kratnih ',k,' — ',sum,'; kolichestvo takih chisel — ',amo); end.

пользователи выбрали этот ответ лучшим

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

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

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

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