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. Кому не трудно у кого есть программа паскаль введите туда им любой числом то что вышло напишете пожалуйста Заране...
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.
Кому не трудно у кого есть программа паскаль введите туда им любой числом то что вышло напишете пожалуйста
Заранее спасибо
Гость
Ответ(ы) на вопрос:
Гостьесли а=б, то выведет a*b/2
иначе выведет а и б
Не нашли ответ?
Похожие вопросы