//PascalABC.NET 3.1 сборка 1200
begin
PrintLn(ArrRandom(30, 0, 500).Println().ToArray
.Where(x->x mod 20 = 0).Println()
.Count);
end.
Все за одного и одни за всех
Ответ:
1. Unicode UTF-16
2. 5120 байт
3. 5 Кбайт
Объяснение:
1. текст содержит различные языки, включая китайский, поэтому кодировка Unicode. Любые одно-байтовые кодировки не подойдут: в китайском алфавите количество иероглифов превышает 256.
Далее тип Unicode может быть UTF-8 и UTF-16. в UTF-8 для каждого символа длина в байтах различна. Для нее не получится рассчитать общую длину текста, не зная что содержит этот текст. Потому выбираем UTF-16 кодировку, два байта на любой символ.
2. 40 * 64 * 2 = 5120 байт
3. 5120 / 1024 = 5 Кбайт
Var a,b,c,d:integer;
begin
Write('Первое число: ');
Readln(a);
Write('Второе число: ');
Readln(b);
Write('Третье число: ');
Readln(c);
if (a < c) and (b < c) then d:=a*b;
if (a < b) and (c < b) then d:=a*c;
if (b < a) and (c < a) then d:=b*c;
write('Результат: ',d);
end.
Всегда пожалуйста))