var n,i,rez:integer;
begin
write('Введите n: ');
readln(n);
rez:=0;
for i:=1 to n do
if odd(i) then rez:=rez+i
else rez:=rez-i;
writeln('rez=',rez);
end.
Увеличь. есть только такая . Надеюсь понравится .
Я думаю что надо из А в К надо найти сколько ходов потребуется А чтобы дойти в К.
Ответ: 9
Program p;
var
a,b,c,s: integer;
begin
writeln('введите длину:');
readln(a);
writeln('введите диагональ:');
readln(c);
b := sqrt((sqr(c) - sqr(a)));
s := a * b;
writeln('площадь прямоугольника: ', s);
end.
Файл, папка, ярлык, рабочий стол, панель задач