выдает ошибку ошибку

[Andrey770]

Дано числа x,i,k,l,m,n Найти числа которіе деляться на х
вот код программы:

program one;
uses crt;
var x,i,k,l,m,n:integer;

begin
clrscr;
writeln('vveditb x: ');
readln(x);
writeln('vveditb i: ');
readln(i);
writeln('vveditb k: ');
readln(k);
writeln('vbeditb l: ');
readln(l);
writeln('vveditb m: ');
readln(m);
writeln('vveditb n: ');
readln(n);

if (i div x) then
writeln(i);
else if (k div x) then
writeln(k);
else if (k div x) then
writeln(k);
else if (l div x) then
writeln(l);
else if (m div x) then
writeln(m);
else if (n div x) then
writeln(n);



end.

выдает ошибку здесь
if (i div x) then
помогите разобраться

[Niro]

if (i div x) then

А какой смысл у этой стороки в вашем случае?
Вы в любом случае должны проверять чему равно ваше выражение....
div - функция деления без остатка.
т.е. a div b=c, где с - целое число, например 10 div 2=4,
И насколько я понял из задания нужно

if (a mod b)=0 then....

P.S. перед else точка с запятой не ставится.

[Zer0]

переписал для удобства

program one;
uses crt;
var x,i,k,l,m,n:integer;

begin
clrscr;
writeln('vveditb x: ');
readln(x);
writeln('vveditb i: ');
readln(i);
writeln('vveditb k: ');
readln(k);
writeln('vbeditb l: ');
readln(l);
writeln('vveditb m: ');
readln(m);
writeln('vveditb n: ');
readln(n);

if (i mod x)=0 then
writeln(i);
if (k mod x)=0 then
writeln(k);
if (l mod x)=0 then
writeln(l);
if (m mod x)=0 then
writeln(m);
if (n mod x)=0 then
writeln(n);

repeat until keypressed;
end.

по условию нужно найти числа, потому здесь else не нужен

[_-Re@l-_]

А лучше так....

Uses CRT;
Var
     I,X,T:Integer;
Begin
       Clrscr;
       Write('Введите X:');
       Readln(X);
       For I:=1 To 6 Do
       Begin
               Write('Введите число: ');
               Readln(T);
               If T mod X = 0 Then Writeln(T,' делится на ',X,' без остатка');
       End;
       Readln;
End.

Так как-то покрасивей...

[Andrey770]

А лучше так....
Код:

Uses CRT;
Var
I,X,T:Integer;
Begin
Clrscr;
Write('Введите X:');
Readln(X);
For I:=1 To 6 Do
Begin
Write('Введите число: ');
Readln(T);
If T mod X = 0 Then Writeln(T,' делится на ',X,' без остатка');
End;
Readln;
End.

Так как-то покрасивей...

Спасибо, очень помогли
Ваш вариант самый лучший.Имхо

Всем остальным тоже огромное спасибо!

[Andrey770]

переписал для удобства

Код:

program one;
uses crt;
var x,i,k,l,m,n:integer;

begin
clrscr;
writeln('vveditb x: ');
readln(x);
writeln('vveditb i: ');
readln(i);
writeln('vveditb k: ');
readln(k);
writeln('vbeditb l: ');
readln(l);
writeln('vveditb m: ');
readln(m);
writeln('vveditb n: ');
readln(n);

if (i mod x)=0 then
writeln(i);
if (k mod x)=0 then
writeln(k);
if (l mod x)=0 then
writeln(l);
if (m mod x)=0 then
writeln(m);
if (n mod x)=0 then
writeln(n);

repeat until keypressed;
end.

по условию нужно найти числа, потому здесь else не нужен

все понял !
спасибо