Предмет: Информатика, автор: anya0002

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

Ответы

Автор ответа: SHAWOL
0

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

Автор ответа: bynov
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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Похожие вопросы
Предмет: Қазақ тiлi, автор: Аноним
Предмет: Математика, автор: samsungj510112233
Предмет: Алгебра, автор: Svetlana2704
Предмет: Алгебра, автор: katirina110511