<span>a, b = (float(i) for i in input().split())
c = (a*a+b*b)**<span>0.5
</span>P = a + b + c
S = 1/2 * a * b;
print('P = ',P,'\nS = ',S)
</span>
Var
m, n, n10, n100: integer;
begin
write('Введите трехзначное число: ');
readln(m);
if (m > 99) and (m < 1000) then
begin
n100 := m div 100;
n10 := (m mod 100) div 10;
n := m mod 10;
if (n + n10 + n100) mod 7 = 0 then writeln('Сумма цифр кратна семи')
else writeln('Сумма цифр не кратна семи')
end
end.
Тестовое решение:
Введите трехзначное число: 473
Сумма цифр кратна семи
1 байт = 8 бит
8192:8=1024 байта
1 мб = 8388608 бит
4 мб = 8388608*4 = 33554432 бит
12582912 бит = 1.5 мб
(а или b) лучший и по удобнее