1)
uses crt;
var chislo,summa,proiz:integer;
begin
clrscr;
Readln(chislo);
summa:=(chislo div 10) + (chislo mod 10);
proiz:=(chislo div 10) * (chislo mod 10);
Writeln('<span>сумма:',summa:6:2);
</span>Writeln('<span>произведения </span>:',proiz:6:2);
end.
2)
var chislo:integer;
begin
Readln(chislo);
chislo:=(chislo div 10)+(chislo mod 10)*10;
Writeln(chislo);
end.
В отрицательную сторону.
За исключением "специальных" случаев масштабирования, например когда обе стороны увеличиваются в 2 раза, и из 1 пикселя получается 4 того же цвета, однако такой метод не применяется, ибо не имеет смысла.
Конечно, актуально только для растра.
Парус, яблоня, действие, строфа, запах
Ну, во первых sqr - команда для возведения числа в квадрат, а а^3 - куб числа. Если тебе нужен куб, в выводе просто напиши а*а*а:
Writeln(‘a^3=‘,a*a*a);
Если же все таки нужен квадрат, то тебе не нужна запятая после sqr. Ты пишешь sqr(a). Или же просто а*а. Ну и конечно, надо будет поправить 3 на 2))
Writeln(‘a^2=‘,a*a);
Writeln(‘a^2=‘,sqr(a));