Пиши дано и что дано в задачах решение дили
Ответ:
Что то типа того, попробовал проверять, вроде работает
Объяснение:
program example;
var
d,c,a,h:real;
b : real;
function Calculate(d,c,a,h: real): real;
var
Notation: real;
begin
Notation := c + abs(cos(a*h*h)-sin(a*h));
Calculate := d - sqrt(c/Notation);
end;
begin
readln(d,c,a,h);
b := Calculate(d,c,a,h);
write(b);
end.
1 символ равен одному байту, значит надо сосчитать количество символов в этой фразе - пробелы и знаки припинания считаем:
43 * 1 = 43
ответ: 43 байта
Function G(n:integer):integer;
begin
if n=1 then G:=1
else G:=G(n-1)*n
end;
begin
Writeln(G(5))
end.
Тестовый результат
120