program Numbers;
var n, c: integer;
begin
c := 100;
while c < 1000 do begin
for n := 0 to 9 do writeln(n + c);
for n := 1 to 9 do writeln(n * 10 + c);
c := c + 100
end
end.
Другие языки программирования и технологии
найти все 3 значные числа в которых присутствует 0 паскаль
Перебирать все 900 чисел в диапазоне нет необходимости:
for i:=100 to 999 do
if (i mod 10 = 0) or (i mod 100 < 10) then
writeln(i);
if (i mod 10 = 0) or (i mod 100 < 10) then
writeln(i);
Держи:
100
101
102
103
104
105
106
107
108
109
110
120
130
140
150
160
170
180
190
200
201
202
203
204
205
206
207
208
209
210
220
230
240
250
260
270
280
290
300
301
302
303
304
305
306
307
308
309
310
320
330
340
350
360
370
380
390
400
401
402
403
404
405
406
407
408
409
410
420
430
440
450
460
470
480
490
500
501
502
503
504
505
506
507
508
509
510
520
530
540
550
560
570
580
590
600
601
602
603
604
605
606
607
608
609
610
620
630
640
650
660
670
680
690
700
701
702
703
704
705
706
707
708
709
710
720
730
740
750
760
770
780
790
800
801
802
803
804
805
806
807
808
809
810
820
830
840
850
860
870
880
890
900
901
902
903
904
905
906
907
908
909
910
920
930
940
950
960
970
980
990
100
101
102
103
104
105
106
107
108
109
110
120
130
140
150
160
170
180
190
200
201
202
203
204
205
206
207
208
209
210
220
230
240
250
260
270
280
290
300
301
302
303
304
305
306
307
308
309
310
320
330
340
350
360
370
380
390
400
401
402
403
404
405
406
407
408
409
410
420
430
440
450
460
470
480
490
500
501
502
503
504
505
506
507
508
509
510
520
530
540
550
560
570
580
590
600
601
602
603
604
605
606
607
608
609
610
620
630
640
650
660
670
680
690
700
701
702
703
704
705
706
707
708
709
710
720
730
740
750
760
770
780
790
800
801
802
803
804
805
806
807
808
809
810
820
830
840
850
860
870
880
890
900
901
902
903
904
905
906
907
908
909
910
920
930
940
950
960
970
980
990
for i:=1 to 9 do begin
for j:=0 to 9 do
writeln(i*100+j);
for j:=1 to 9 do
writeln(i*100+j*10);
end;
for j:=0 to 9 do
writeln(i*100+j);
for j:=1 to 9 do
writeln(i*100+j*10);
end;
var i:integer;
begin
for i:=100 to 999 do
if (i mod 10=0) or (i div 10 mod 10 =0) or
(i div 100=0) then
write(i,' ');
readln
end.
begin
for i:=100 to 999 do
if (i mod 10=0) or (i div 10 mod 10 =0) or
(i div 100=0) then
write(i,' ');
readln
end.
Александр Аристов
ему вроде нули а не пятерки нужны
Похожие вопросы
- Помогите написать программу в Assembler НАЙТИ СУММУ ЦИФР 3-ЗНАЧНОГО ЧИСЛА И ПРОИЗВЕДЕНИЕ 4-ЗНАЧНОГО ЧИСЛА
- Написать программу вывода всех возможных вариантов 3 значного числа без повторений на Паскале
- Подсчитать количество 3-значных чисел,сумма цифр которых меньше либо равна 24
- Pascal: Дано 3-значное число N.Определить,являются ли числа,из которых оно состоит членами геометрической прогрессии
- напишите пожалуйста все возможные 5-ти значные числа, состоящие из цифр от 0 до 9
- Здравствуйте, кто нибудь, сможет создать программу через паскаль, вычисляющую произведение цифр 10-х значных чисел?
- Существует ли программа которая выводит допустим все 4-х значные числа или 5 значные?
- Помогите написать программу. Дано натуральное 5-значное число n.Определить равны ли сумма и произведение его цифр.
- Как сделать игровой автомат в Паскале? Требуется чтобы выводились 3 случайных числа от 0 до 9
- Найти все натуральные числа, не превосходящие заданного числа n, которые делятся на каждую из своих цифр. Паскаль.