• Найдите ошибку пожалуйста
    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.

Ответы 0

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years