РЕШИТЕ ПОЖАЛУЙСТА В ПАСКАЛЕ!!! НАЙТИ СУММУ ЦИФР ЦЕЛОГО ЧИСЛА БОЛЬШИХ ПЯТИ!! 7 класс
Answers & Comments
mrvip228
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.
Answers & Comments
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.