РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ!!! НАЙТИ СУММУ ЦИФР ЦЕЛОГО ЧИСЛА БОЛЬШИХ ПЯТИ!! 7 класс

Пацан 2 больше подойдёт.

Можно пж с помощью repeat

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;beginread(x);x:=abs(x);s:=0;while x>0 do beginif x mod 10>5 then s:=s+x mod 10;x:=x div 10end;write(s)end.