Вывести все трехзначные числа,которые делятся на свою первую цифру Пожалуйста,помогите
111,222,333,444,555,666,777,888,999,393,339,484,448,224,242,248,284,246,264их слишком много.подумай немножко
var
first,i:integer;
begin
for i:=100 to 999 do
first:=i div 100;
if (i mod first)=0 then write(i+' ');
end;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
111,222,333,444,555,666,777,888,999,393,339,484,448,224,242,248,284,246,264
их слишком много.подумай немножко
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.