Вопрос спроектирован не очень понятно:Кбайт,Мбайт
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Приём;
ПЕР
слово1, слово2, слово3, слово4, слово5: РЯД 50 ИЗ ЗНАК;
сч: ЦЕЛ;
УКАЗ
СПИСАТЬ("информация", слово1);
ОТ сч := 2 ДО 6 ВЫП
слово2[сч - 2] := слово1[сч]
КОН;
слово2[5] := 0X;
слово3[0] := слово1[7];
слово3[1] := слово1[8];
слово3[2] := слово1[2];
слово3[3] := слово1[4];
слово3[4] := слово1[6];
слово3[5] := 0X;
слово4[0] := слово1[2];
слово4[1] := слово1[0];
слово4[2] := слово1[4];
слово4[3] := слово1[5];
слово4[4] := слово1[6];
слово4[5] := 0X;
Приём.Строка(слово5);
ОТ сч := 0 ДО ДЛИНА(слово5) - 1 ВЫП
ЕСЛИ слово5[сч] = "о" ТО слово5[сч] := "т"
КОН
КОН Задание.
- Для конкретного человека
"Коля, если ты еще жив, аккуратно съездить на обочину и подтяни болты на колесе, мы забыли"
- Для неконкретного человека
"Граждане и гражданки Советского Союза, говорит Москва, работают все радиостанции Советского Союза"
1
1024×2048= 2097152 пикселей
кол пикселей × размер 1
2097152×4= 8388608 байт
2
256 цветов
begin
var q := ReadSeqInteger(3);
Write(q.Sorted.Take(2).Aggregate(0, (s, x)-> s + x * x).Sqrt:0:9);
end.