<span><span>Насколько я понял это "кодированное" задание, требуется построить таблицы истинности для двух следующих логических выражений:
Таблицы даны во вложении.</span> </span>
Что сложного?
a:=10-4*2=2
b:=24/2*4=12*4=48
Ответ: 48
Var a,s :integer;
begin
a:=0;
s:=0;
repeat
a:=a+1;
if a mod 2 = 0 then
s:=s+1;
until
a=234;
writeln('кол-во четных чисел : ',s)
end.
5,4610^(-2) /то есть -2 брать надо в скобки/