Вывести все трехзначные числа,которые делятся ** свою первую цифру Пожалуйста,помогите

0 голосов
31 просмотров

Вывести все трехзначные числа,которые делятся на свою первую цифру Пожалуйста,помогите


Информатика (137 баллов) | 31 просмотров
Дано ответов: 2
0 голосов

111,222,333,444,555,666,777,888,999,393,339,484,448,224,242,248,284,246,264
их слишком много.подумай немножко

(361 баллов)
0 голосов

var

first,i:integer;

begin

for i:=100 to 999 do

begin

first:=i div 100;

if (i mod first)=0 then write(i+' ');

end;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(210 баллов)