Регистрация
настя51001
22.05.2021 21:07
Информатика
Есть ответ 👍

Вычислить значение выражения по формулам ( все переменные имеют действительный тип)

122
152
Посмотреть ответы 1

Ответы на вопрос:

ugifhuf
ugifhuf
4,5(44 оценок)
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. программа будет выводить несколько значений, если задать при вводе несколько нулей. если так не должно быть, уточните алгоритм.

Популярно: Информатика