Автор Kanzaki Urumi задал вопрос в разделе Другие языки и технологии
не работает программа в pascal. встречено else,а ожидался оператор. Где ошибка? Спасибо. и получил лучший ответ
Ответ от Stason33[гуру]
end без точки с запятой, лол.
Stason33
Мастер
(2023)
Код выравнивай хоть как-нибудь, тогда будешь видеть все эти косяки.
Ответ от Александр Погребняк[гуру]
Перед else точка с запятой не ставится
Перед else точка с запятой не ставится
Ответ от Cublen[гуру]
программа работает теперь/ но нет условия, я не разбирался в ней
program namefuck;
uses crt;
const n=11;
var a:array [1..n] of integer;
var i,k,t,p,sum,mnog,dd,flag,otrez,schet,int:integer;
begin
writeln ('aaaaeoa ye-u ianneaa');
for i:= 1 to n do
readln (a[i]);
flag:=1;
otrez:=1;
for t:= n downto otrez do
if a[t]=0 then k:=t;
for t:=n downto k+1 do
if a[t]=0 then otrez:=t;
for i:= k+1 to otrez-1 do begin
if flag = 2 then begin
writeln ('oiii?aiea =',a[i]*a[i+1],' ');
flag:=flag-1
end
else
writeln ('nei?aiea =',a[i]+a[i+1],' ');
flag:=flag+1;
end;
end.
программа работает теперь/ но нет условия, я не разбирался в ней
program namefuck;
uses crt;
const n=11;
var a:array [1..n] of integer;
var i,k,t,p,sum,mnog,dd,flag,otrez,schet,int:integer;
begin
writeln ('aaaaeoa ye-u ianneaa');
for i:= 1 to n do
readln (a[i]);
flag:=1;
otrez:=1;
for t:= n downto otrez do
if a[t]=0 then k:=t;
for t:=n downto k+1 do
if a[t]=0 then otrez:=t;
for i:= k+1 to otrez-1 do begin
if flag = 2 then begin
writeln ('oiii?aiea =',a[i]*a[i+1],' ');
flag:=flag-1
end
else
writeln ('nei?aiea =',a[i]+a[i+1],' ');
flag:=flag+1;
end;
end.
Ответ от Ђаня Захарова[новичек]
всем спасибо за ответы! вот рабочая программа!
program jghjer;
var a, b, c, d, e: real;
begin
writeln ('Ведите кол-во пироженых у Маши.');
read (a);
writeln ('Введите кол-во пироженых у Кати.');
read (b);
c:=b/a;
writeln ('У Маши ', a, 'пироженых, а у Кати в ', c,' раза больше. Сколько пироженых у девочек вместе?');
d:=a+c;
read (e);
if e=d then
writeln ('Ответ верен! Молодец!')
else writeln ('Ответ не верен. Правильный ответ', d, '.');
end.
всем спасибо за ответы! вот рабочая программа!
program jghjer;
var a, b, c, d, e: real;
begin
writeln ('Ведите кол-во пироженых у Маши.');
read (a);
writeln ('Введите кол-во пироженых у Кати.');
read (b);
c:=b/a;
writeln ('У Маши ', a, 'пироженых, а у Кати в ', c,' раза больше. Сколько пироженых у девочек вместе?');
d:=a+c;
read (e);
if e=d then
writeln ('Ответ верен! Молодец!')
else writeln ('Ответ не верен. Правильный ответ', d, '.');
end.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: не работает программа в pascal. встречено else,а ожидался оператор. Где ошибка? Спасибо.