Андрей **********
АР
Анна Разоренова
Вот задача. Только её результат не сходится с результатом по ссылке выше. (
var
sum1,sum2,counter,i:integer;
begin
sum1 := 0;
sum2 := 0;
counter := 0;
for i := 100000 to 1000000-1 do begin
sum1 := sum1 +(i mod 10);
sum1 := sum1 + (i div 10)mod 10;
sum1 := sum1 + (i div 100)mod 10;
sum2 := sum2 + (i div 1000)mod 10;
sum2 := sum2 + (i div 10000)mod 10;
sum2 := sum2 + (i div 100000)mod 10;
if(sum1 = sum2) then begin inc(counter);sum1 := 0; sum2 := 0;end
else begin sum1 := 0; sum2 := 0; end;
end;
writeln(counter);
end.
ИБ
Иван Блоха
var v:integer; begin; writeln('9'); readln(); end.
ГО
Геннадий Орлов
http ://www .cyberforum.ru/turbo-pascal/thread693965.html
Как-то так.
Похожие вопросы