2. Как с операций / и % выделить вторую с конца цифру десятичной записи числа?
int N = 123;
int d2 =

800*600*24*4/8=5760000 байт=5625 кбайт

var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!

var x,n: integer;

begin

  read(x,n);

  x: =x*n;

  writeln(x);

end.

трасирвка кажется f7

100%-10%=90% стоит покупка после скидки

500: 100%*90%=450 рублей - стоимость покупки с учетом скидки