Редактирование программ.

[Mihailo94]

Найдите ошибки в каждый из следующих программ:
1)
program A;
const d=5;
begin d:=sqr(d);
writeln('d**2=',d)
end.

2) program B;
const k=true;
var x:real;
begin read(x);
writeln(odd(x)=k)
end.

Выполните трассировку и ответьте на вопросы по заданному фрагменту программы:
for i:=1 to n do
begin j:=2;
while j<=m do
begin write(i+j);
j:=j+2
end;
writeln
end.
1)Сколько раз будет выполнен оператор write(i+j)?
2)Сколько строчек будет напечатано?

Что такое описание процедуры функции и чем оно отличается от оператора процедуры функции????
Заранее большое спасибо!!!

[Hacker19_90]

1)

const d=5;
begin d:=sqr(d);

константы изменять в программе нельзя ( ну напрямую)
2)

odd(x)

параметр x может быть только целочисленным

Сколько раз будет выполнен оператор write(i+j)?

а чему m равно?

[Mihailo94]

Благодарю,не указано написал все что есть...

[Hacker19_90]

ну тогда

Сколько раз будет выполнен оператор write(i+j)?

пока j<=m

Сколько строчек будет напечатано?

столько раз сколько выполниться этот цикл while j<=m do и умножить на n

[Mihailo94]

Большое спасибо,а трассировку можешь выполнить пожалуйста?)Буду очень признателен.
А поканкретнее на вопросы эти нельзя ответить??на 1 и 2?