<em><u>Программа шифровки:</u></em>
DATA "ауоыэяюёие"
DATA "бвгджзклмнпрстфхцчшщ"
DATA "ъйь"
DIM s10 AS STRING, s20 AS STRING, s3 AS STRING
DIM i AS INTEGER
DIM s AS STRING, t AS STRING
CLS
READ s10, s20, s3
RANDOMIZE TIMER
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s)
t = t + MID$(s, i, 1)
t = t + MID$(s10, INT(10 * RND + 1), 1)
t = t + MID$(s20, INT(20 * RND + 1), 1)
t = t + MID$(s3, INT(3 * RND + 1), 1)
NEXT i
PRINT t
END
<em><u>Программа дешифровки:</u></em>
DIM s AS STRING, t AS STRING, <span>i AS INTEGER</span>
CLS
INPUT "Введите фразу: ", s
t = ""
FOR i = 1 TO LEN(s) STEP 4
t = t + MID$(s, i, 1)
NEXT i
PRINT t
END
Жила Тётушка Совунья она очень любила информатику и учила всех!
Но один мальчик Сема не любил информатику ,Тётушка учила его ,учила,учила,но он всеровно не хотел учить этот предмет. Один раз когда прозвенел звонок после урока Русского языка (следующий урок был информатика) Сема сказал всем что"А вы знаете ,что информатика это легкий придмет и поэтому я его не учу " А все подумали" Может Семка прав? Довайте выбрасим тетрадки и будем играть лучше на уроке , А довай" (Сказали дети) И выбрасили тетрадки.
Они пришли на урок и начели беситься . Пришла Тётушка Совунья и Сказала"Дети!
Вы чего Информатика Очень полезный урок !" Дети задумались.... Тетушка совунья" Если вы не будите знать Инорматику вы не сможите играть в ваши современные компьютеры!" И дети всё поняли,Даже Сема всё понел ,и начел учить информатику.
000011100010111000101100000011100010111000101110000011100010111000011101
<span>000011100010111000011110000011100010111000101100</span>
Какова скорость оптоволоконного кабеля в Мбит/сек?
а)1024
Хех изи. 1024 Кбайт.
короче ты просто смотри во сколько раз первое время больше второго и наоборот. и во столько же раз меньше или больше размер файла