Регистрация
vikakruchko1405
12.02.2023 06:46
Информатика
Есть ответ 👍

Программы специального назначения примеры ​

250
363
Посмотреть ответы 1

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

Sergay121
Sergay121
4,7(42 оценок)
Var x,s,i: integer;   begin  writeln('введите число');   readln(x);   s: =0;   while ( x< > 0 ) do  begin  s: =s+(x mod 10);   x: =x div 10;   end;   writeln( 'сумма цифр числа =', s );   end. 

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