1. 32 * 40 * 48 = 61440 символа
8 бит = 1 байт
ответ: 61440 байт
2. 16 * 30 *32 = 15360 символов
16 бит = 2 байта
ответ 15360 * 2 = 30720 байт
3. 14 * 36 * 64 = 32256 символа
ответ 32256 * 2 = 64512 байта
Program z1;
var st:string;
begin
writeln('Введите строку');
readln(st);
while (pos(' ',st) <> 0) do
begin
delete(st, pos(' ',st), 1);
end;
writeln(st);
readln;
end.
Begin
randomize;
writeln('Для молодёжи: ', 1 + random(100));
writeln('Для взрослых: ', 101 + random(100));
writeln('Для стариков: ', 201 + random(50));
end.
Для хранения информации наверное
Вбей в поисковик таблица истинности онлайн, с подробным решением выдаст