Var
num: real;
begin
write('Введите сторону квадрата: ');
read(num);
writeln;
writeln('Периметр квадрата (P): ', num * 4);
writeln('Площадь квадрата (S): ', sqr(num));
end.
1.
x не кратно 4 x mod 4 <>0
-5<x<-2 (x>-5)and(x<-2)
x принадлежит [-1,5] (x>=-1)and(x<=5)
2.
uses crt;
var n1,n2,n3:byte;
begin
writeln('Введите 3 разных числа от 1 до 9 по порядку:');
readln(n1,n2,n3);
if(n2-n1=3)and(n3-n2=3)then write('На вертикали!');
readln
end.
A=5
B=6
C=7
Если (5<=6) или (6>7) 5 действительно меньше 6 это истина
6 не больше 7 это ложь
Но так как стоит или значит должно выполниться или одно, или другое, или оба вместе
то х=5+5*6=35
То x=
<span>Если 33 буквы то на кодирование 1 буквы идет 6 бит, а букв 33,то 33*6=198 бит</span>
Сад (РАСТЕНИЯ, САДОВНИК, забор, земля, собака).
<span>Река (БЕРЕГ, рыба, тина, рыболов, ВОДА). </span>
<span>Игра (шахматы, ИГРОКИ, штрафы, ПРАВИЛА, наказания).</span>