1. Program kek;
var y.x,c,d:real;
begin
readln(c);
readln(x);
readln (d);
y:= c+d-sqrt(sqr(c)+sqr(d))/abs(x)+d
writeln ('y= ', y);
end.
2. Program lul;
var t,p,x,y:real;
begin
readln(x);
readln(p);
readln(y);
if p<0 then t:=x+y else t:=x-y;
write ('t= ', t);
end.
3. Извини не знаю, надеюсь хоть с задачами помог :D
Таблица Истинности в прилагающем файле
(сумма любых двух цифр числа всегда ≤ 18)
1414 - суммы цифр могут быть только 14 и 14
148 - только 14 и 8
145 - только 14 и 5
214 не может быть такого результата, так как суммы цифр могут быть только 2 и 14, но записаны они в порядке возрастания.
515 - 5 и 15 - записаны в порядке возрастания, не соответ. условию.
814 - 8 и 14 - не соотв. условию
114 - 11 и 4 (но может быть и 1 и 14) , в принципе - такой результат возможен
ответ 5
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var k:=a.Where(t->t mod 4=0).Count;
if k>0 then Writeln('Кол-во элементов, делящихся на 4, равно ',k)
else Writeln('Таковых нет')
end.
<u>Пример</u>
n= 13
-26 -4 -41 23 8 -14 29 2 38 -9 32 4 12
Кол-во элементов, делящихся на 4, равно 5