I=1024*768*16*75=943718400 бит = 117964800 байт=115200 Кб = 112,5 Мб
Var a,b,c: real;
Begin
write('Введите 3 числа: ');
readln (a,b,c);
if c = sqrt(a*a + b*b) then writeln('Число ',c,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if a = sqrt(c*c + b*b) then writeln('Число ',a,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if b = sqrt(a*a + c*c) then writeln('Число ',b,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else writeln('Эти числа не являются сторонами прямоугольного треугольника')
End.
Сесть за стул
↓
Включить компьютер
↓
Использовать компьютер
↓
Выключить компьютер
↓
Встать со стула
59
В F и G по 6 переменных, значит по 64 строки. Из них 10 строк одинаковые, значит 54 разные( в F стоит 0, а в G-1 или в F-1, а в G-0). <span> F \/ G будет в этих 54 </span>равно 1 и в 10 где 1 (5 строк) тоже. Полуаем 54+5=59.