Пожалуйста , помогите сделать блок... - вопрос №833491

Пожалуйста, помогите сделать блок схему по этой программе !!!  program Project2;<br /><br />{$APPTYPE CONSOLE}<br /><br />uses<br /> SysUtils;<br /><br />var x1,y1,x2,y2:byte;<br /> f,g:boolean;<br />begin<br /> write('x1=');<br /> readln(x1);<br /> write('y1=');<br /> readln(y1);<br />write('x2=');<br /> readln(x2);<br /> write('y2=');<br /> readln(y2);<br /> writeln;<br /> f:=(abs(x1-x2)=2)and(abs(y1-y2)=1);<br /> g:=(abs(x1-x2)=1)and(abs(y1-y2)=2);<br /> write(' ', f or g);<br /> readln;readln;<br /> end.
Ответов пока нет

Еva

от 100 p.
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store