pascalABCNET
помогите найти ошибку в коде
раскрыть ветку (5)
раскрыть ветку (4)
раскрыть ветку (2)
раскрыть ветку (1)
сэр, может у вас с самой программой проблемы? я проверил у себя этот код. работает:
program lol;
var a, p: real;
begin
write ('введите сторону квадрата');
readln (a);
p:=a*4;
writeln ('периметр равен=',p);
end.
program lol;
var a, p: real;
begin
write ('введите сторону квадрата');
readln (a);
p:=a*4;
writeln ('периметр равен=',p);
end.
Мне кажется, что ошибка тут не в тексте программы, а в другом месте. У вас получилось хоть одну программу скомпилировать?