Ответ:
разобраться во внутренем устройстве
Var
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.
налить в 9-литровое 9 литров
=> - это, видимо, операция "импликация"
Таблица истинности для нее:
a b a=>b
0 0 1
0 1 1
1 0 0
1 1 1
Теперь рассмотрим выражение: A=>(B=>A)
A B B=>A <span>A=>(B=>A)
0 0 1 1
0 1 0 1
1 0 1 1
1 1 1 1</span>
Var A,S:integer;
Begin
S:=0;
Repeat
Read(A);
if (A mod 6 = 0)and(A mod 10 = 6) then S:=S+A;
Until A = 0;
Write(S)
End.