Помогите с паскалем) SR:= S /(K-1);

Question

Помогите с паскалем) SR:= S /(K-1);

Елена Литвинова Ученик (194), на голосовании 11 лет назад

Дополнен 11 лет назад

program w2;
uses crt;
var s, k, a, sr:integer;
Begin
While a<>0 do begin
read (a);
S:=(S+A);
K:= K+1;
IF (a=0) and (K=1) then begin
Writeln(' Ошибка повторите ввод' )
end;
Writeln(SR);
SR:= S /(K-1);
end.

Дополнен 11 лет назад

Пишет что после end должна быть точка с запятой, хотя это конец программы.

Answer 1

Kristina Гуру (3679) 11 лет назад

А делать-то что надо? ))

Answer 2

поменяй Writeln(SR); и SR:= S /(K-1); местами
ты не закрыла ифовский бегин ендом. у тебя только для вайла. нужно еще один end; поставить.

Answer 3

KKurage Мастер (1025) 11 лет назад

Объясни что делать!

Answer 4

Begin
While a<>0 do begin
...
IF (a=0) and (K=1) then begin
...
end;
end. // Это - не конец программы, согласись.

Answer 5

Дно, после while->begin или if->begin Енда нету. Посчитай количество Begin(их 3), количество End(а их 2), а должно быть одинаково