Помогите пожалуйста с задачами по Pascal

[Hacker19_90]

Эх!!! Халявщики!!!
1) Попробуй так

Var
A,B,C: real;
Sum: real;
Function Koren(X: real):real;
Begin
    Koren := (sqrt(x) + x)/2;
End;
Begin
Readln(A,B,C);
Writeln('Сумма равна: ', Koren(A) + Koren(B) + Koren(C));
End.

[Hacker19_90]

Насчёт второй смотри на форуме была такая

[yakimchukav]

Ввести три числа – номера месяцев. Вывести количество дней в каждом месяце. Использовать свою процедуру замены номера месяца на количество дней в нём

[IIPOTUBBCEX]

Сообщение от NSvirus

1)

...
readln(number);
a:=4;
 repeat
   if (number mod a)=0 then writeln('DA!!!');
   a:=a*a;
 until a>number;
...

разве эта программа определит, является ли число степенью четверки, мне так кажется что она определит делится ли оно на 4 без остатка, так например если ввести 8, она выдаст DA!!!

можно так попробовать, ну думаю будет не самый лучший способ.
var number,x:real;
begin
readln(number);
x:=sqrt(sqrt(number));
If number=x*x*x*x then writeln('Да')
else writeln('нет');
END.

Думаю будет работать так как при вычислении корня если он не возьмется получится не целое число, и при возведении обратно начальное не получится

[NSvirus]

точно, не углядел)

[balex007]

помогите пожалуста с задачами
1) дано
лоыаав(343)ваы (апавп)апвпвп(апап).
Надо Удалить скобки
2)Дан файл f1. Записать в f2 сумму нечетных чисел
и произведение четных
3)Дан файл f1 записать в файл f2 все также только удаляя пустые строчки
Заранеее спасибоооо

[DM_bite]

2) Считываешь в переменную и проверяешь:

sum:= 0;
pr:= 1;
if num mod 2 <> 0 then inc(sum, num)
else pr:= pr*num;

[balex007]

спасибо
а можно всю программу