Информатика

Помогите написать схему!


<< Предыдущий вопрос Следующий вопрос >>

Program Shema;
uses  crt;
var  a, b, c, y, x, z: real;
begin 
clrscr; 
write('Vvedite x= ');readln(x); 
write('Vvedite b= ');readln(b); 
if x<>0 then c:=16/x else write('Error'); 
if b>=16 then a:=sqr(c-x) else a:=(b*c)-(b*x); 
z:=(a+b)*c; 
writeln('c= ', c:4:3); 
writeln('a= ', a:4:3); 
writeln('z= ', z:4:3); 
readln
end.

Загрузить файл
Сомневаешься в ответе?

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


Смотреть другие ответы