Program n1;
var a,b,c,s,k,y: real;
begin
readln(a,b,c);
s:=sqrt(a+sqr(b)*b)/sqrt(c);
k:=sqrt(abs(a*b-sqr(c)*c))+s/(2*a);
y:=3*s*k-s/(b+a);
write(y);
end.
В алгебре высказываний суждениям (простым высказываниям) ставятся в соответствие логические переменные, обозначаемые прописными буквами латинского алфавита.
Рассмотрим два простых высказывания:
<span>А = «Два умножить на два равно четырем». В = «Два умножить на два равно пяти».</span>
R(sqr(c)+c, d) - по тому что ты в начале указал что счетчик процедуры будет интеджером, а если вывести из коренья то может получится и дробное число...
Program Temperatura;
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.