Если это паскаль, то вывод на экран можно выполнить так:
writeln('x = ',x);
На Паскале:
3.1) (x=y) and (x=z)
3.2) ((x=y) and (x<>z)) or ((x<>y) and (x=z))
3.3) (x>0) and (y>0) and (z>0)
3.4) ((x>0) and (y<=0) and (z<=0)) or ((y>0) and (z<=0) and (z<=0)) or ((z>0) and (x<=0) and (y<=0))
3.5) (y>x) and (y<z)
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
1)
begin
var a:=ReadInteger('Число -> ');
var b:integer;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
writeln(b);
<span>end.
2)
begin
var a:=ReadInteger('Число -> ');
var s:integer;
while a>0 do
begin
s+=1;
a:=a div 10;
end;
writeln('Количество:',s);
<span>end.
3)
begin
var a:=ReadInteger('Число -> ');
var s:=0;
var p:=1;
while a>0 do
begin
s+=a mod 10;
p*=a mod 10;
a:=a div 10;
end;
writeln('Сумма:',s);
writeln('Произведение:',p);
end.
4)
begin
var a:=ReadInteger('Число -> ');
var b:=ReadInteger('Цифра->');
var p:=0;
while a>0 do
begin
if b=a mod 10 then p+=1;
a:=a div 10;
end;
writeln('Количество',b ,':',p);
end.
</span></span></span>
(1046000+2576) ×8 = 1.048.576 Бит
1.048.576 Бит = 131072 Байт = 128 КБ.
Ответ: 1.048.576 Бит.
Верные имена файлов: б) и г).