Program Kvadrat;
var a:real;
begin
writeln('Введите длину стороны квадрата');
readln(a);
writeln('Площадь квадрата = ', sqr(a));
end.
Var mark:integer;
begin
readln(mark);
if mark=5 then writeln('молодец, я тобой горжусь!')
else if mark=4 then writeln('я рад, надеюсь, будет «5»')
else if mark=3 then writeln('не ленись и всё получится')
else writeln('ты, наверное, не ходишь на уроки');
end.
Пример:
4
<span>я рад, надеюсь, будет «5»</span>
Именованная область с данными на диске - файл.
( ( X < 5 ) → ( X < 3 ) ) ∧<span> ( ( X < 2 ) → ( X < 1 ) ) =
( </span> ( X < 5 ) ∨ ( X < 3) ) ∧ ( ( X < 2 ) ∨ ( X < 1 ) ) =
( ( X > 4) ∨ ( X < 3) ) ∧ ( ( X > 1 ) ∨ ( X < 1 ) ) =
(X ∈ (-∞; 3) U (4; +∞) ) ∧ ( X ≠ 1 )
Ответ: Для всех X ∈ (-∞; 1) U (1; 3) U (4; +∞)