Procedure TForm1.Button1Click(Sender: TObject); var i1,i2,i3 : Integer; kk : Integer; Chislo : Integer; begin Memo1.Clear; kk := 0; for i1 := 1 to 9 do for i2 := 0 to 9 do for i3 := 0 to 9 do if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then if ( Frac((i1+i2+i3)/7)=0 ) then begin Chislo := i1*100 + i2*10 + i3; if ( Frac(Chislo/7)=0 ) then begin Memo1.Lines.Append(inttostr(Chislo)); inc(kk); end; end; end;
Думаю правильней 40 с, так как Килоба́йт (КБ, Кбайт [1]) — единица измерения количества информации, равная 1024 байтам. Действующий ГОСТ [1] указывает на такое определение килобайта как на некорректное, но исторически сложившееся. Но! Кто его знает, может вам дают уже по новой методике так что вспомните была написано "кбайт" или "Кбайт" Я бы выбрал 40, так как в свое время нас учили именно так
if x>0 then y:= 100 div x; else y:= 0;
Объяснение: