Мультимедийный файл у станавливает графический редактор
Var
A:integer;
S:real;
Begin
{Постусловие}
S:=0;
Repeat
Read(A);
S:=S+A;
Until A = 0;
WriteLn('S = ',S);
{Предусловие}
S:=0;
Read(A);
While A<>0 do
Begin
S:=S+A;
Read(A);
End;
WriteLn('S = ',S);
End.
Var
x, sum: integer;
begin
read(x);
while(x > 0) do
begin
if(x mod 10 <= 5) then sum := sum + x mod 10;
x := x div 10;
end;
write(sum);
end.