<span>program ves;
const
A1='легкая категория';
A2='средняя категория';
var
b : integer;
begin
write('введите вес спортсмена *пусто* = ');
readln(b);
if b < 59 then writeln(A1) else writeln(A2);
readln;
end.</span>
Uses crt;
<span>var a,b,rez:real; </span>
<span>begin </span>
<span>clrscr; </span>
<span>readln(a,b); </span>
<span>Writeln('Summa - ',a*a+b*b:0:2); </span>
<span>writeln('Raznost - ',a*a-b*b:0:2); </span>
<span>writeln('Proizv - ',a*a*b*b:0:2); </span>
<span>writeln('Chastnoe - ',a*a/(b*b):0:2); </span>
<span>readkey; </span>
<span>end.</span>
<em>1.Краткая запись</em>
<em>2.Решение</em>
<em>3.Ответ</em>
Клавиатура, сканер, граф. планшет
Вариант в Excel 2003.
каждая задача на отдельных листах