Цитата:
Сообщение от Андрей Романюк
тут вроде все правильно, но все 219 чисел на экран не влезают...можно ли это как-то изменить?или лучше убрать эту строку(вывода этих числе)?
|
Очень даже можно, и ничего убирать не надо, а надо грамотно вывод организовать. Вот хотел бы я знать, на кой пёс Вы здесь вещественный формат (real) привлекли? По мне так он тут ни к селу, ни к городу. И зачем выводить отдельные цифры, да еще "в разрядку"? А главное, как Вы ухитрились запустить программу с явными синтаксическими ошибками? Потому что, например, такого:
for i:= 1000 to 9999do
(без пробела между 9999 и do) ни один транслятор не пропустит.
Ладно, получите:
Код:
uses crt;
var
i,k,a,b,c,d,e:integer;
begin
clrscr;
k:=0;
for i:= 1000 to 9999 do
begin
a:=i div 1000;
b:=(i mod 1000) div 100;
c:=(i mod 100) div 10;
d:=i mod 10;
e:=a+b+c+d;
if e=10 then
begin
k:=k+1;
write(i:5);
end;
end;
writeln;
writeln;
writeln('Количество чисел, удовлетворяющих условию, = ',k);
readln
end.