Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Найдите ошибку пожалуйста
Program percentage;
uses crt;
var a,b,c,d:real;
begin
writeln(Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ.Искомую переменную обозначтье (0).);
write(Введите переменную a-);
read(a);
write(Введите переменную b-);
read(b);
write(Введите переменную c-);
read(c);
write(Введите переменную d-);
read(d);
writeln;
if a=0 then
begin
a:=c*b/d;
writeln( Ответ:,a);
end;
if b=0 then
begin
b:=a*d/c;
writeln( Ответ:,b);
end;
if c=0 then;
begin
c:=a*d/b;
writeln( Ответ:,c);
end;
if d=0 then
begin
d:=c*b/a;
writeln( Ответ:,d);
end;
writeln(Спасибо за использование программы!!!);
end.

Ответ оставил Гость

Program percentage;
uses Crt;
var
  a,b,c,d:real;
begin
  ClrScr;
  Writeln(Здравствуйте!);
  Writeln(Вас приветствует программа для нахождения процентов в заданиях ОГЭ);
  Writeln(Искомую переменную обозначьте нулем);
  Write(Введите через пробел значения a,b,c,d: );
  Read(a,b,c,d);
  if a=0 then begin a:=c*b/d; Writeln(Ответ: ,a) end;
  if b=0 then begin b:=a*d/c; Writeln(Ответ: ,b) end;
  if c=0 then begin c:=a*d/b; Writeln(Ответ: ,c) end;
  if d=0 then begin d:=c*b/a; Writeln(Ответ: ,d) end;
  Writeln(Спасибо за использование программы!!!);
  ReadKey
end.

Программа будет выводить несколько значений, если задать при вводе несколько нулей. Если так не должно быть, уточните алгоритм.