Дано: fori:=23downto8do

i изменяется от до с шагом

​

решение: наливаем в 5-вую и из нее в 3-вую, в ней осталось 2 литра. из 3-ой выливаем все обратно, оставшиеся 2 литра выливаем в 3-вую. затем наполняем 5-вую и из нее отливаем 1 литр в 3-вую, итак в 5-литрой 4 литра

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

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 это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!