12 × 1024 × 8<span> = </span><span>98304 бит
</span>98304 / 24576<span> = </span><span>4 бит (вес символа) </span>
См. в прикрепленном файле
Вообще есть специальная программа HotPotatos - легко создаются кроссворды. Нужно только ввести вопросы, а программа сама составит кроссворд
Ответ:uses crt;
const n=8;
var a:array[1..n] of integer;
i,s:integer;
BEGIN
clrscr;
for i:=1 to n do
a[i]:=random(10);
for i:=1 to n do
write(a[i]:4);
writeln;
s:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
s:=s+a[i];
write('Symma = ',s);
readkey;
END.
Объяснение:
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
На каком именно языке программирования вы не написали!
Я решил задачу на паскале. Какие условия вы мне дали, с такими я и сделал.
program easy;
var
a,b,i:string;
begin
a:= 'Новый год';
b:= 'Женский день';
writeln('Введите дату');
read(i);
if i = '0.10.1' then
writeln(a);
if i = '0.80.3' then
writeln(b);
end.