Program bar; var a,b,c:intenger; begin read(a,b) If a=b then begin c:=(a*b)/2 write(c) end else write(a,b); End. Кому не трудно у кого есть программа паскаль введите туда им любой числом то что вышло напишете пожалуйста Заранее спасибо

Ответы:

RADIK LAVROV

16-11-2013 22:31

если а=б, то выведет a*b/2иначе выведет а и б

Также наши пользователи интересуются:

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Program bar; var a,b,c:intenger; begin read(a,b) If a=b then begin c:=(a*b)/2 write(c) end else write(a,b); End. Кому не трудно у кого есть программа паскаль введите туда им любой числом то что вышло напишете пожалуйста Заранее спасибо» от пользователя ЛИНА КОВАЛЬЧУК в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!

PHP Core Warning – yii\base\ErrorException

PHP Startup: Unable to load dynamic library '/usr/lib/php5.6/mysql.so' - /usr/lib/php5.6/mysql.so: cannot open shared object file: No such file or directory