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

Sofija20 Sofija20    2   16.03.2019 23:10    34

Ответы
прнннр1 прнннр1  25.05.2020 17:34

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

ПОКАЗАТЬ ОТВЕТЫ
saddsa17 saddsa17  25.05.2020 17:34

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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика