Блок-схема алгоритма - в прилагаемом файле.
Program zadacha;
uses crt;
var a, b, w, k: integer;
x: real;
begin
clrscr;
write ('vvedite a, b, w, k: ');
readln (a, b, w, k);
if k=1 then x:=log2(w-a)
else if k=2 then x:=sqrt(sqr(w)+b*w+a)
else if k=3 then x:=sqrt(w+a)+sqrt(w+b)
else if k>3 then x:=-(a*w)/w
else writeln ('nevernye ishodnye dannye');
writeln ('x=', x:0:4);
readkey;
end.
Тест:
a=2, b=3, w=7, k=1
x=2.3219
Галочка вниз-дизъюнкция,это и есть сложение
1 Мб=1000000 байт
0,5 Мб=1000000\2=500000 байт
1 байт=8 бит
512\8=64 байт
1 Гб=1024*1024 Кб
2048 Кб=2048\1048576=0,001953125 Гб
2 байт=2*8=16 бит
1 Кб=1000 байт
1000000 байт=1000000\1000=1000 Кб
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.