Вывод чисел в диапозоне от 20 до 1000,делимых на 4,5,9 Опции

[kurt]

Помогите решить задачу:"Определите и выведите на экран количество чисел между 20 и 1000, которые делятся
без остатка одновременно на 4,5,9"

[Perfez]

Есть более извращённый метод-признаки деления чисел. Например:

var
k,i,p:integer;
s:string;
f:byte;
Function SumStr(s:string):integer;
var
j:byte;
l:integer;
Begin
For j:=1 to length(s) do
Begin
Val(s[j],f,k);
l:=l+f;
End;
SumStr:=l;
End;
Function LastStr(s:string):integer;
Begin
Val(Copy(s,length(s)-1,2),f,k);
LastStr:=f;
End;
Begin
For i:=20 to 1000 do
Begin
Str(i,s);
If ((s[length(s)]='5') or (s[length(s)]='0')) and (SumStr(s) mod 9=0) and (LastStr(s) mod 4=0) then p:=p+1;
End;
WriteLn(p);
End.

Вроде должно быть правильно...

...if ((X mod 4) = 0) and ((X mod 5) = 0) and ((X mod 9) = 0) then inc(count);...

Определите и выведите на экран количество чисел между 20 и 1000, которые делятся
без остатка одновременно на 4,5,9

volvo,по-моему это должно быть так:

For X:=20 to 1000 do 
If ((X mod 4) = 0) and ((X mod 5) = 0) and ((X mod 9) = 0) then WriteLn(X);

Сообщение отредактировано: Perfez - 11.03.2007 15:21