В поисковике набери.Он выдаст ответ.Поисковик(г,у,г,л)
В отрицательную сторону.
За исключением "специальных" случаев масштабирования, например когда обе стороны увеличиваются в 2 раза, и из 1 пикселя получается 4 того же цвета, однако такой метод не применяется, ибо не имеет смысла.
Конечно, актуально только для растра.
81920,5120,175921860444160,128849018880
Var
a, b, i:integer;
Begin
write('Введите значения a и b: ');
read(a, b);
writeln('Цикл for');
for i := b downto a do write(i*i*i, ' ');
writeln();
writeln('Цикл while');
i := b;
while i >= a do
begin
write (i*i*i, ' ');
dec(i);
end;
writeln();
writeln('Цикл repeat');
i:=b;
repeat
write(i*i*i, ' ');
dec(i)
until i < a
writeln();
End.
Var a,b:real;
begin
write('Введите катеты: ');
read(a,b);
writeln;
write('Гипотенуза = ',sqrt(sqr(a)+sqr(b)):0:2);
end.