Var a,b,c:int64;
begin
read(a,b,c);
writeln(c);
writeln(a);
writeln(b);
<span>end.</span>
А - <span>11100001 - 225
б - </span>11100010 - 226<span>
а - </span><span>11100001 - 225
к - </span><span>11101011 - 235
С - </span><span>11110011 - 243
о - </span>11101111 - 239<span>
р - </span>11110010 - 242<span>
о - </span>11101111 - 239<span>
б - </span>11100010 - 226<span>
а - </span>11100001 - 225<span>
н - </span>11101110 - 238
Правильный ответ: 4........
var x1,y1,x2,y2:integer;
BEGIN
writeln('Координаты первой точки:');
readln(x1,y1);
writeln('Координаты вторвой точки:');
readln(x2,y2);
writeln('Расстояние между точками = ',trunc(sqrt(sqr(x2-x1)+sqr(y2-y1))));
end.
<span><span>var mas:array[1..10] of integer; i:integer;beginrandomize;for i:=1 to 10 dobeginmas[i]:=random(200)-100;write (mas[i]:4);end;writeln;for i:=1 to 10 dobeginif (mas[i]<0) then mas[i]:=1;write (mas[i]:4);end;writeln;
end.</span>//я не уверена, что решила правильно, проверьте меня)
</span>