Посещают 3 секции: 13 + 16 + 19 - 44 = 4 человека
772=11000000100
-71=-1000111
284,375=100011100.011
Var
y:real;
n,i:integer;
Begin
Write('n = ');ReadLn(n);
{Цикл с параметром:}
y:=0;
For n:= 1 to n do
y:=y+(1/n);
WriteLn('y = ',y);
{Цикл с постусловием:}
y:=0;
i:=1;
Repeat
y:=y+(1/i);
i:=i+1
Until i>n;
WriteLn('y = ',y);
{Цикс с предусловием:}
y:=0;
i:=1;
While i<=n do
Begin
y:=y+(1/i);
i:=i+1
End;
WriteLn('y = ',y)
End.
Предполагаю, что ЯП - Паскаль.
program sum3;
var
a,b,c,r:integer;
begin
write('введите a: ');
readln(a)
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
r:=a+b+c;
writeln('результат: ',r);
end.