Var x:integer;
begin
writeln('Введите чилос x: ');
readln(x);
if x>= 100 then
if (not odd(x)) then
writeln('TRUE')
else
writeln('FALSE')
else
writeln('Число не трехзначное');
<span>end.
Надеюсь правильно понял тебя и составил программу верно.</span>
Решение показано в прилагаемом файле.
В столбец A и в строку 2 нужно занести длины сторон от 1 до 10.
Значения периметра в остальных ячейках (начиная с B3) вычисляются по формуле вида: =2*($A3+B$2)
Формула записывается один раз, после чего её нужно скопировать (протяжкой) на все остальные ячейки диапазона B3:K12
Для вычисления площади все действия аналогичны. Формула: =$A3*B$2
Если не показывабют число значит оно умножено на 0
а) 10010
б) 1030200
2 ^26=536870912, а потом все что вы делаете на уроке,делите или наоборот
1) 1>1 и (1<5) или (1<3)) - неверно
2) 2>1 и ((2<5) или (2<3)) - верно
3) 3>1 и ((3<5) или (3<3)) - верно
4) 4>1 и ((4<5) или (4<3)) - верно
Очень странно или я что то не недопонимаю или в задании нужно найти для кого го числа Х высказывание ложно.