Ответы
Ответ дал:
0
Program abc;
var a,b,c,sum,col:integer;
begin
readln(a);
b:=0;
col:=0;
sum:=0;
while a<>0 do
begin
c:=a;
while c<>0 do
begin
b:=b+1;
a:=a div 10
end;
if b=4 then
col:=col+1;
sum:=sum+a;
readln(a)
end;
writeln(sum);
writeln(col);
end.
var a,b,c,sum,col:integer;
begin
readln(a);
b:=0;
col:=0;
sum:=0;
while a<>0 do
begin
c:=a;
while c<>0 do
begin
b:=b+1;
a:=a div 10
end;
if b=4 then
col:=col+1;
sum:=sum+a;
readln(a)
end;
writeln(sum);
writeln(col);
end.
Ответ дал:
0
Что...
Ответ дал:
0
на паскале проверь
Ответ дал:
0
это не правильно
Вас заинтересует
8 лет назад
8 лет назад
8 лет назад