Var
a, b, c, x: longint;
begin
writeln('Введите a, b, c и x:');
readln(a, b, c, x);
if (x > 2) then begin
if (a = b) then
writeln('a и b равны');
if (b = c) then
writeln('b и c равны');
if (a = c) then
writeln('a и c равны');
end
else
writeln('Поиск не состоялся');
end.
Извини, а среди каких программ?
В алфавите 1024 символа, следовательно для кодирования 1 символа требуется 10 бит.
Всего символов 24576*10 бит= 245760 бит= 30720 байт= 30 Кб
Ответ: 30 Кб
Это в паскале
var
a,b:real;
begin
write('Введите первое число - ');
readln(a);
write('Введите второе число - ');
readln(b);
if a=b then writeln(a,'=',b)
else
if a>b then writeln(a,'>',b)
else writeln(b,'>',a);
<span>end.</span>
const nn=10;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i],' ');
writeln;
for i:=n downto 1 do write(a[i],' ');
end.
const nn=50;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
writeln;
for i:=1 to n do if i mod 2 =0 then write(a[i],' ');
end.