===== PascalABC.NET =====
procedure Tri(a, b: real; var c, S, P: real);
begin
c := Sqrt(a * a + b * b);
S := 0.5 * a * b;
P := a + b + c
end;
begin
var (a, b) := ReadReal2('Введите длинв катетов:');
var c, S, P: real;
Tri(a, b, c, S, P);
Writeln('Гипотенуза ', c:0:3, ', площадь ', S:0:3,
', периметр ', P:0:3)
end.
Вы пытаетесь прибавить один тип к другому. Попробуйте так: rb.position + new Vector2 (0, Vector.right)
Таблица))))))))))))))))))
1. read(a);
read (b);
while (a<=b)
begin;
if ((a mod 2 =0) and (a mod 3 =0)) or ((b mod 2=0) and (b mod 3 =0)) then
begin;
write (a)
else
if (b mod 2=0) and (b mod 4=0) then
write (b)
else
end;
readkey;
end.
второе прости могу только на си
1) 8 Кбайт = 8 * 1024 байт = 8 192 байт
8 192 > 8 150
Ответ: 8 Кбайт
2) 2.5 Кбайт = 2.5 * 1024 = 2560 байт
2560 байт * 1024 = 2 621 440 бит
Ответ: 2560 байт или 2 621 440 бит