// PascalABC.Net 3.0, сборка 1052
var
s1, s2: string;
a, b: real;
err: integer;
begin
Writeln('Введи первый катет: ');Readln(s1);
Val(s1, a, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
Writeln('Введи второй катет: ');Readln(s2);
Val(s2, b, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
Writeln('Гипотенуза равна ', sqrt(a * a + b * b));
Writeln('Площадь равна ', 0.5 * a * b)
end
end
end.
var x:integer;
Begin
write ('Введите х='); readln(x);
if x>0 then
write('Положительное')
else
write('Отрицательное');
<em>if x=0 then write('равно нулю')
</em>
end.
ну просто добавить еще одно условие. Ну можно еще условие в условие добавить, а как еще хз.
Var n:integer;
begin
readln(n);
if (n>=4)and(n mod 2=0) then writeln('YES')
else writeln('NO');
end.
Пример:
8
YES
<span>c || d || (a>b ^ !d) = true || d || (a>b ^ !d) = true
хватило одной подстановки одного значения
|| - считаю что это or или дизьюнкция
остальные операторы не важны
</span><span />
10 Байт!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!