Ввод числа и вывод таблицы умножения, Pascal.

[Roman1295]

Всех приветствую. Казалось бы, простая задача: ввести число и вывести для него таблицу умножения от 1-9. Но у меня что-то никак не выходит. Вот что наработал:

var
i,x,s : integer ;
begin
readln(x);
S:=0;
for i:=1 to 9 do
begin
s:=i*9;
writeln('9*',i,'=',x);
end;
end.

Но не совсем понимаю, что не так. Вот просто вывести число без ввода выходит, а с вводом -нет.
Спасибо.

[Вадим Мошев]

Вы циклически выводите одно и то же число, которое ввели:

readln(x);
S:=0;
for i:=1 to 9 do
begin
s:=i*9;
writeln('9*',i,'=',x);
end;

Замените последний аргумент в операторе вывода на s:

readln(x);
S:=0;
for i:=1 to 9 do
begin
s:=i*9;
writeln('9*',i,'=',s);
end;

Кроме того, вы умножаете числа от 1 до 9 на 9, а вам требовалось умножить число x на [1-9]
То есть, вместо

s:=i*9;

напишите

s:=i*x;

и незачем переменной s присваивать нулевое значение в начале.

[Somebody]

Результат в s, а выводишь x.

[Roman1295]

Все, разобрался, огромное Вам спасибо.