Задание 2
Перейдите на лист Задание 2 файла Шифр_Виженера.xls.
Автоматизируйте процесс кодирования слов с использованием ключевого слова файл (предполагается, что слова будут состоять только из строчных русских букв и их длина не будет превышать 10 символов).
Зашифруйте слова: алгоритм, компьютер, модель.
Сохраните результаты работы в том же файле.
Задание 3
Перейдите на лист Задание 3 файла Шифр_Виженера.xls.
Автоматизируйте процесс дешифрования слова из строчных английских букв.
Дешифруйте шифры слов из первого задания.
Сохраните результаты работы в том же файле.
function FS(a,b:real):=0.5*a*b;
begin
var a,b:real;
Write('Катеты первого треугольника: '); Read(a,b);
var S1:=FS(a,b);
Write('Катеты второго треугольника: '); Read(a,b);
var S2:=FS(a,b);
if S1>S2 then Writeln('Площадь первого треугольника больше')
else
if S1<S2 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.
Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше