Beginvar b:boolean; s:real;a:=0;writeln('slovo');readln(z);while not (eof(z)) do beginif z=d then a:=a+1;writeln(a);end;end.
Var a,b,c,d:integer;
e:real;
begin
writeln('Введите а и б: ');
readln(a,b);
c:=a+b;
d:=a*b;
e:=(a+b)/2;
Writeln('Сумма двух чисел: ',c);
Writeln('Произведение двух чисел: ',d);
Writeln('Среднее арифметическое двух чисел: ',e);
<span>end.</span>
Var a1,a2,a3,a4:real;
begin readln(a1,a2,a3,a4);
if (a1<>a2) and (a1<>a3) then writeln(a1);
if (a2<>a1) and (a2<>a3) then writeln(a2);
if (a3<>a1) and (a3<>a2) then writeln(a3);
if (a4<>a3) and (a4<>a2) then writeln(a4);
<span>end.</span>
Ответ В) 4 и 8, т.к. в двоичной и троичной системах не может использоваться цифра 3
1кб=1024байта=1024бита дальше сам подумай я прост не до конца понял вопрос