Зач тная работа по ПОЭВМ Выполнил Введите сво имя. Задание. Компания хочет передаватьданные по телефону, но онаобеспокоена возможностьютелефонного перехвата. Все передаваемые данные являются четырехзначными целымичислами. Компания попросила вас написать программу, которая должна шифроватьэти данные так, чтобы они могли передаваться с большой безопасностью.Вашапрограмма должна читать целые четырехзначные числа и шифровать их следующимобразом заменять каждую цифрузначение остатка от деления сумма этой цифры плюс 10. Затем печатать полученноезашифрованное число. Напишите отдельную программу, которая вводила бызашифрованные четырехзначные целые и дещифровала их, получая исходные числа.
Программа шифрования чисел.Uses CRT Var ne string не кодированное число ko string это закодированное число r string строковые i integer числовые per integer чтобы перевести строковые в числовые Begin Clrscr Writeln Введите четырехзначное числокоторое хотити зашифровать Readln ne x copy ne,1,1 val r,i,per i i 7 mod 10 str i,r insert r,ko,3 x copy ne,2,1 val r,i,per y i 7 mod 10 str i,r insert r,ko,4 x copy ne,3,1 val r,i,per y i 7 mod 10 str i,r insert r,ko,1 x copy ne,4,1 val r,i,per y i 7 mod 10 str i,r insert r,ko,2 Write Введенное вами число зашифровано Write ko Readln End. Подготовил RASIK Моя почта rasik nptus.ru или rasik bzz.ru Моя страница www.rasik.by.ru Пишите мне и заходите ко мне на сайт буду всем рад!.