Question

Люди, кто шарит в программировании

Выдаёт ошибку "встречено еlse, а ожидался оператор"
Удалять ; побывала, пишет ошибку "встречено else, а ожидалось ;"

program pr1;
var a, m, n: real;
begin
writeln ('Введите количество минут трека m=');
read (m);
m:=m*60;
writeln('Введите количество секунд трека n=');
read (n);
n:=16*n;
m:=16*m;
if n>60 then writeln('ошибка') else
if m+n>6144 then a:=(m+n)- 6144; writeln (' не хватает', a , 'килобайт')
else writeln (' композиция поместиться');
end.​

Answer 1

Ответ:

после else нет ;, а так не знаю, чекни ;

Answer 2

Так как вы не скинули условие я попытался его сам додумтаь исправить программу, у вас нашел еще несколько ошибок

Программа:

program pr1;

var a, m, n: real;

begin

writeln ('Введите количество минут трека m=');

read (m);

m:=m*60;

writeln('Введите количество секунд трека n=');

read (n);

if n>=60 then writeln('ошибка') else begin n:=16*n;

m:=16*m; end;

if m+n>=6144 then begin a:=(m+n)- 6144; writeln (' не хватает ', a , ' килобайт'); end

else writeln (' композиция поместится');

end.