Дай Составьте программу для штриховки квадратного поля А

юра из новгородатоля из москвы

алеша из томска

коля из перми

витя из санкт-петербурга 

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

и так по кол-ву солдат

ну его в баню такую переправу и бедные мальчики

var x,y,a,b: real; begin  read(a,b);   read(x,y);   if y=a*x+b then      writeln('точка принадлежит прямой')  else  writeln('точка не принадлежит прямой'); end.