а после writeln поставил?
а вообще кинь текст проги так, а то править не удобно)
И кста - ошибка в смысле быстро закрывается после подсчета?
там в конце пустой readln() для этого поставь
и если слово programm не подсвечивает, то по ходу в нем ошибка
короче
programm pr;
var a, p: real;
begin
writeln('введите первое число');
readln(a);
p:=a*4;
writeln(p);
readln();
end.
бывает, что еще нужно так писать writeln(p:2:2);
а вообще кинь текст проги так, а то править не удобно)
И кста - ошибка в смысле быстро закрывается после подсчета?
там в конце пустой readln() для этого поставь
и если слово programm не подсвечивает, то по ходу в нем ошибка
короче
programm pr;
var a, p: real;
begin
writeln('введите первое число');
readln(a);
p:=a*4;
writeln(p);
readln();
end.
бывает, что еще нужно так писать writeln(p:2:2);
раскрыть ветку (1)
program pr;
var a,P: real;
begin
writeln('введите первое число');
readln(a);
P:=4*a;
writeln(P);
end.
var a,P: real;
begin
writeln('введите первое число');
readln(a);
P:=4*a;
writeln(P);
end.
показать ответы


