Если не затруднит, то... (тока подробно). Заранее спасибо.
Составить программу вычисления
...../t²+z², если t>z
p=|
.....\t²-z², если t<=z
uses crt;
var
t,z,p : single;
begin
clrscr;
write('t='); readln(t);
write('z='); readln(z);
p := 0;
if t>z then
p := t*t+z*z
else
p := t*t-z*z;
writeln('p = ',p:4:2);
readln
end.
М | Это утром... а в час ночи все гораздо сложнее... Altair |
М | Особенно когда в этот самы час ночи задачин на Си решаешь да ? klem4 |