Найти ошибки

Imwey

Нужно найти ошибки в данной программе
5 ответов

Imwey

А чем этот вопрос отличается от Найти ошибки в программе Только наклоном фотографии… Ошибки всё в тех же строках ;–)


Imwey

и вот тут код
program p1;
var a,b:integer;
function
calcul(x,y:integer):integer;
begin
calcul=(x+y)/3;
end;
begin
a=8, b=4;
writeln(calcul(a,b):6:2);
end.


Imwey

См.мой ответ после кода из Найти ошибки в программе


Imwey

program p1;
var a,b:integer;
function
calcul(x,y:integer):real;
begin
calcul:=(x+y)/3;
end;
begin
a:=8; b:=4;
writeln(calcul(a,b):6:2);
end.


Imwey

Imwey, нет ошибок в программе. Ответ - 4.