Program One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;<span>
if a < 0 then inc (count);</span>
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
<span>end.
Надеюсь на лучший ответ:)</span>
Ответ:
1) Дарья
Объяснение:
<h3>Дарья</h3>
д - согласная, я - гласная
НЕ (истина И истина) = НЕ истина = ложь
<h3>Павел</h3>
п - согласная, л - согласная
НЕ (истина И ложь) = НЕ ложь = истина
<h3>
Абрам</h3>
а - гласная, м - согласная
НЕ (ложь И ложь) = НЕ ложь = истина
<h3>Анфиса</h3>
а - гласная, а - гласная
НЕ (ложь И истина) = НЕ ложь = истина
Нарушение правил техники безопасности может привести к большим сложностям и проблемам.
В частности, угроза жизни человека, поломка и неисправность техники
Var a,b,c:real;
begin
writeln('введите два числа');
readln(a,b);
if a>b then begin
a:=a/2;
b:=sqr(b);
c:=a+b;
writeln(c)
end
else
begin
b:=b/2;
a:=sqr(a);
c:=a+b;
writeln(c);
end;
<span>end.</span>