Помогите, Паскаль!

Дано n чисел. Найти а) сумму цифр каждого из них; б) количество чисел, сумма цифр которых кратна 3. Повторить системы счисления

Question

Информатика

Евникия

23 декабря, 19:44

Помогите, Паскаль!

Дано n чисел. Найти а) сумму цифр каждого из них; б) количество чисел, сумма цифр которых кратна 3. Повторить системы счисления

+2

Ответы (1)

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

Селиван · Answer 1

Var n, a, i, s, k:integer;

begin

write ('n=') ; readln (n) ;

k:=0;

for i:=1 to n do

begin

write ('a=') ; readln (a) ;

s:=0;

while a0 do

begin

s:=s+a mod 10;

a:=a div 10;

end;

writeln (' sum=', s) ;

if s mod 3 = 0 then k:=k+1;

end;

writeln ('k=', k) ;

end.

Помогите, Паскаль!Дано n чисел. Найти а) сумму цифр каждого из них; б) количество чисел, сумма цифр которых кратна 3. Повторить системы счисления

Помогите, Паскаль!

Дано n чисел. Найти а) сумму цифр каждого из них; б) количество чисел, сумма цифр которых кратна 3. Повторить системы счисления