Пара прог на Паскале

[bwitcher]

1) Составить программу вывода любого числа любое заданное число раз в одну строчку

Вводим с клавы, например, n и x. Я вот понять не могу, от чего до чего прописывать цикл для i? И что потом выводить? Может кто-нить с кодом программы помочь? Заранее спасибо

2) Даны натуральные числа x и y. Вычислить произведение x*y используя лишь сложение.

Тоже с For. Если можно

[bwitcher]

С первой уже сам сообразил

[Niro]

Вам же писал Mat-cat
1)

readln(n);
readln(x);
for i:=1 to x do
write(n,' ');

n - число
x - сколько раз выводим
данный кусок кода означает что твоя прога выполнится x - раз (например x=10, это значит что код выполнится десять раз - 10 раз выведется число n);
i - начальный параметр, он же счетчик цикла
Когда программа доходит до for она принимает i равным единице, мы ведь так записали и проверяет, равно ли i (то бишь 1) x (то бышь десяти) , ага не равно значит выполняем оператор и опять, но уже i увелился на единицу, т.е. операцию i:=i+1 прога сдалает сама, и проверяет ( i уже равно двум) равно ли два десяти или нет и т.д. до i=11, т.к. при i=10 она еще раз выполнится
2) 3*4 это как - это 3+3+3+3 или же 4+4+4, теперь засунь это в цикл

[bwitcher]

Да, спасибо, всю лекцию эту я знаю.

[Ybn2]

Сообщение от bwitcher

[B]1)
Даны натуральные числа x и y. Вычислить произведение x*y используя лишь сложение.
Тоже с For. Если можно

Program Zadach2;
Var
  x,y,i,p:integer;
Begin
  Write ('Vvedite x:');
  ReadLn (x);
Write ('Vvedite y:');
  ReadLn (y);
  p:=0;
  For i:=1 to y do
     p:=p+x;
  WriteLn ('x*y = ',p);
  ReadLn;
end.

Проверяйте!

[bwitcher]

Спасибо! А как сделать, чтоб результат выводил просто, например, 30, а не 30=30?

[Ybn2]

Сообщение от bwitcher

Спасибо! А как сделать, чтоб результат выводил просто, например, 30, а не 30=30?

Я не совсем понял. Он не может выводить 30=30, если только вы не забили кавычки, посмотрите внимательней WriteLn ('x*y=',p);

[bwitcher]

Ну да ладно, спс)

[Ybn2]

Сообщение от bwitcher

Ну да ладно, спс)

Если вам это важно, то просто WriteLn(p);