Процедуры в Паскале

[bwitcher]

Подскажите, пжл.
1) Напечатать столбиком квадраты всех четных чисел от a до b (значения a и b вводятся с клавиатуры; a < b) - Ввод и вывод данных оформить в виде отдельных процедур без параметров.

2) Даны натуральные числа x и y. Вычислить произведение x*y используя лишь сложение - Ввод и вывод данных, основной алгоритм оформить в виде отдельных процедур с параметрами, т.е. глобальные переменные в процедурах НЕ ИСПОЛЬЗОВАТЬ.

3) Вычислить сумму:1+1/2+1/3+...+1/n - Ввод и вывод данных, основной алгоритм оформить в виде отдельных процедур с параметрами, т.е. глобальные переменные в процедурах НЕ ИСПОЛЬЗОВАТЬ.

Решать нужно с помощью процедур. Во всех заданиях надо написать программу таким образом, чтобы ввод-вывод данных осуществлялся в головной программе (результаты в подпрограмме не выводить!!!).

[Niro]

И что тебе непонятно?

[bwitcher]

Непонятно, куда и как вставлять эти процедуры.

[Mad_Cat]

3)

var n:integer;
procedure proc3(x:integer);
var i:integer;
s:real;
begin
s:=0;
for i:=1 to x do
s:=s+1/i;
writeln(s:6:3);
end;
begin
readln(n);
proc3(n);
readln;
end.

1)

var  a,b:integer;
procedure proc1;
var i:integer;
begin
for i:=a to b do
if not odd(i) then
writeln(i,'--->',i*i);
end;
begin
readln(a);
readln(b);
proc1;
readln;
end.

2

var x,y:integer;
procedure proc1(a,b:integer);
var i:integer;s:integer;
begin
s:=0;
for i:=1 to b do
s:=s+a;
writeln(s);
end;
begin
readln(x);
readln(y);
proc1(x,y);
readln;
end.

[bwitcher]

Mad_Cat, спасибо огромное! Через некоторое время проверю

[bwitcher]

Та, которая под номером 1, что-то не работает
И да, почему мы ничего не вводим? В смысле, не прописано "Writeln" ни для какой переменной.

[Пепел Феникса]

вообще то в proc1 есть вывод(writeln это вывод)

[bwitcher]

Да, я в курсе. Но первая прога не работает.

[SanyaS]

Составить вектор из номеров строк матрицы, где содержатся только числа с одинаковой разрядностью.
Ребят, задали эту задачу, но не объяснили ничего, не могли бы помочь ее решить и пояснить от куда вытекает решение.

[bwitcher]

Ты че-то попутал, по-моему. Новую тему создавай