Информатика: Решите в ! найти сумму цифр целого числа больших 7 класс

СветланаСветик3

27.04.2022 23:42

Информатика

Есть ответ 👍

Решите в ! найти сумму цифр целого числа больших 7 класс

230

445

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

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

Яринка05

Информатика

4,7(38 оценок)

Program aa; uses crt; var a,b: integer; s: real; begin readln(a); s: =0; while a > 0 do begin b: = a mod 10; a: = a div 10; if b > 5 then s: =s+b; end; writeln('ответ: ', s); end. думаю что пойдёт) удачи) вот ещё если что var x,s: integer; begin read(x); x: =abs(x); s: =0; while x> 0 do begin if x mod 10> 5 then s: =s+x mod 10; x: =x div 10 end; write(s) end.