2)a,=Z(3)
3)<span>Z(a)=(b)
5)вывод a,'+',b,'='
6)вывод 'Z(',a,')=F(',b,')'
7)вывод 'a=',a,';b=',b,';'</span>
Var Ax,Ay,Ox,Oy,R:real;
Begin
WriteLn('Точка А:');
Write(' x = ');ReadLn(Ax);
Write(' y = ');ReadLn(Ay);
WriteLn('Центр окружности:');
Write(' x = ');ReadLn(Ox);
Write(' y = ');ReadLn(Oy);
Write('Радиус окружности: ');ReadLn(R);
if sqr(Ax-Ox)+Sqr(Ay-Oy) < R*R then WriteLn('Точка лежит внутри окружности')
else if sqr(Ax-Ox)+Sqr(Ay-Oy) = R*R then WriteLn('Точка лежит на окружности')
else WriteLn('Точка находится вне окружности')
End.
Var
Ax,Ay,Bx,By,Cx,Cy,AB,BC,CA:real;
Begin
WriteLn('Координаты первой вершины');
Write(' x = ');ReadLn(Ax);
Write(' y = ');ReadLn(Ay);
WriteLn('Координаты второй вершины');
Write(' x = ');ReadLn(Bx);
Write(' y = ');ReadLn(By);
WriteLn('Координаты третьей вершины');
Write(' x = ');ReadLn(Cx);
Write(' y = ');ReadLn(Cy);
AB:=Sqr(Ax-Bx)+Sqr(Ay-By);
BC:=Sqr(Bx-Cx)+Sqr(By-Cy);
CA:=Sqr(Cx-Ax)+Sqr(Cy-Ay);
if (AB+BC=CA)or(BC+CA=AB)or(CA+AB=BC) then WriteLn('Треугольник - прямоугольный')
else WriteLn('Данный треугольник не является прямоугольным')
End.
B1. 360 бита=45 байт
В2. 2048 бит
В3. 256 символов в алфавите
В4. 70000 бит=8750 байт
В5. 64 символа в алфавите
Надеюсь, что решение не нужно)
7689:16=480 и 9 в остатке
480:16=30 и 0 в остатке
30:16=1 и 14 в остатке
1:16=0 и 1 в остатке
Выписывая остатки в обратном порядке и учитывая, что 14 в шестнадцатеричной системе это E, получим:
7689(10)=1E09(16)
Выполним обратный передов:
1E09 = 1*16^3 + 14*16^2 + 0 + 9 = 4096 + 14*256 + 9 = 7689
var
n, cnt, val, sum: integer;
begin
readln(n); // кол-во чисел в последовательности
repeat
readln(val); // Вводим любое число
if (val mod 6 = 0) and (val mod 10 = 4) // если число mod 6 = 0 значит оно кратно 6
then sum := sum + val;
cnt := cnt + 1;
until(cnt >= n);
writeln(sum);
end.
// 2 задача
var
val, sum: integer;
begin
repeat
readln(val);
if (val mod 5 = 0) and (val mod 10 = 5)
then sum := sum + val;
until(val = 0);
writeln(sum);
end.