Задание:
Есть прога: program WTF; {$APPTYPE CONSOLE} usesSysUtils; vara,b,c,d: real; beginread (a,b,c,d); if d=0 then beginwhile (sqr (a)*b<288) do beginb: =b+1; end; d: =a*sqr (b); endelse if c=0 then beginb: =sqrt (d)*(-1); while (a*sqr (b) <>81) do begina: =a+1; end; c: =sqr (a)*b; end; writeln (a: 1:0,',b: 1:0,',c: 1:0,',d: 1:0); end.
Решение:
Это вам не сюда, зайдите на любой сайт о компьютерах и задайте вопрос на форуме
Знаете другой ответ?