Регистрация
kuznetovalaura
20.05.2022 19:22
Информатика
Есть ответ 👍

Найдите токи в ветвях по закону киргофа

267
479
Посмотреть ответы 1

Ответы на вопрос:

Jezzyfeed1
Jezzyfeed1
4,6(97 оценок)
Var   i,d,n,k: integer; begin   write('введите трехзначное натуральное число: ');   read(n);   k: =0;   for i: =1 to 3 do begin       d: =n mod 10;       if d mod 3=0 then begin           inc(k);           write(d,' ')           end;       n: =n div 10       end;   if k> 0 then write('- цифры, кратные трем')   else write('таких цифр нет') end. примеры введите трехзначное натуральное число: 569 9 6 - цифры, кратные трем введите трехзначное натуральное число: 184 таких цифр нет замечание: в программе считается, что цифра 0 также кратна трем (как и всем другим числам), поскольку остаток от деления от нуля на 3 равен 0. если это не так, то замените условие d mod 3 = 0 на (d mod 3 = 0) and (d> 0)

Популярно: Информатика