Регистрация
KatinaDobet2006
26.05.2020 20:26
Информатика
Есть ответ 👍

7:2=3 (ост.1)
7 div 2=3 7 mod 2=1

123: 100= 1,23 ( 1 рез-т div; 23 рез-т mod)
123 mod 10= 3
123 div 100 =1
123 div 10 mod 10= 2
123 mod 100 div 10= 2

Найти сумму цифр четырехзначногичисла

228
245
Посмотреть ответы 2

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

pawlomogischoxigx1
pawlomogischoxigx1
4,4(57 оценок)

Нужна программа? Pascal:

var a,i:integer;

begin

read(a);

i:=0;

 while a>0 do begin

   i:=i + a mod 10;

   a:= a div 10;

 end;

 write(i);

end.

Объяснение:

Работает для всех  натуральных чисел(не только для 4-ех значных)

Полинка1608
Полинка1608
4,4(20 оценок)

vara,b: integer; beginreadln(a); a: =a*9; while a< > 9 dobegin

  b: =0;   while a< > 0 do  begin      b: =b+a mod 10;       a: =a div 10;   end;   a: =b; end; end.

 

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