В данной работе представлено 28 фраз, которые закодированы с шифра Цезаря нужно указать на сколько сделан сдвиг. Ниже указаны исходные фразы. Задания: 1. ЗГ, ЪИОСЕИН ФПИУХИР, РС АХС ДЮОС ДЮ ИЬИ ТСОДИЗЮ. ТОСШС ХС, ЪХС СР ЛРСЖЗГ ЕРИКГТРС ФПИУХИР, ЕСХ Е ЪИП ЧСНЦФ! 2. СМОТЗИД М СМЫЙЗТ СЙ УФТХМЦЙ! СМОТЗИД М СМЫЙЗТ, М Ж ТХТЕЙССТХЦМ Ч ЦЙЩ, ОЦТ ХМПАСЙЙ ЖДХ. ХДРМ УФЙИПТКДЦ М ХДРМ ЖХЙ ИДИЧЦ! 3. ЗМХУЦРАК ТНПУИЙЕ ТНЬКИУ ТК ФУТНСЕГЧ ЦЕСН, Е ЙРД ЙКЧКО УЬКТБ ШЧУСНЧКРБТУ ЖКМ ПУТЫЕ НС ЗЦК УЖЯДЦТДЧБ Н ХЕЦЧУРПУЗАЗЕЧБ. 4. УЛ ЮЖСД, УОРФЙФ УЛ ШЦФЙЖД, ХФЭОУЕД ХЦОТЩЧ. О ЛЯЛ ЧЭОШЖД КФСЙФТ ХЦЛКЩХЦЛКОШВ, ЭШФ РФШ - КЦЛИУЛЛ О УЛХЦОРФЧУФИЛУУФЛ МОИФШУФЛ. 5. В РИ ШЛУЦУЖ, В РИЕУСТГХСОСЖ, В ТФЛШЛГХУ. В ЛКЦЪГБ ЗЦЫЛ ФЕСЛШ ТГЩЛИРХСЕ. Л ПРИ ТСЪИПЦ-ХС ЕФИЖЗГ ТСТГЗГБХФВ СЪИРЯ ЖОЦТЮИ ЗЦЫЛ. 6. УЙЬЙЩТИТЖ СДИТ ПВЕМЦА. УЙЬЙЩТИЯ ХТХЦДЖПГВЦ ЕТПАЬЧВ ЫДХЦА ЫЙПТЖЙЫЙХЦЖД. РДПТ ЦТЗТ — ПЧЫЬЧВ ЙЗТ ЫДХЦА. УЙЬЙЩТИЯ ХТЛИДПМ РМФ. 7. ТКУЖЪУЙНСЕ ЖУРБЭЕД ЦСКРУЦЧБ, ЬЧУЖА ФХУЧНЗУЦЧУДЧБ ЗХЕИЕС, ТУ ИУХЕМЙУ ЖУРБЭЕД, ЬЧУЖА ФУОЧН ТЕФКХКПУХ ЙХШМБДС. 8. ФЗЖ УЛРФШФЦФЛ ИЦЛТЕ ЫЦЖУОСО УЛХФКИОМУФЧШВ О ТФСЭЖУОЛ: ФУ — СДЗЩЕЧВ ЛЛ РЦЖЧФШФП, ФУЖ — ЩКОИСЕЕЧВ ЛЙФ ЗЛНФЗЦЖНОД. 9. АХС СЪИРЯ ТИЪГОЯРС, НСЖЗГ КГДЮЕГБХ ЗУЦКИМ. РИ Ц ЕФВНСЖС ДЮО ЗУЦЖ. Л В ДСБФЯ ФХГХЯ ХГНЛП, НГН ЕКУСФОЮИ, НСХСУЮП РЛЪХС РИ ЛРХИУИФРС, НУСПИ ЩЛЧУ. 10. ЙХЦА ЦДОТЙ ЦЖЙФИТЙ УФДЖМПТ. ЖХЦДП УТЧЦФЧ, ЧРЯПХГ, УФМЖЙП ХЙЕГ Ж УТФГИТО - М ХФДЛЧ КЙ УФМЖЙИМ Ж УТФГИТО ХЖТВ УПДСЙЦЧ. 11. РГЙН ТНПУИЙЕ ТК ЙЕГЧ ЧКЖК ЦЧУРБПУ, ЦПУРБПУ ЧА ЦЧУНЭБ. УТН ЙЕГЧ ЧКЖК ЦЧУРБПУ, ЦПУРБПУ ЧА ЦЧУНЭБ ФУ НЪ СТКТНГ. 12. ЭШФ ЧСЩЭОСФЧВ ФКУЖМКБ, ТФМЛШ УОРФЙКЖ ЗФСВЮЛ УЛ ЧСЩЭОШЧЕ. УФ ШФ, ЭШФ ЧСЩЭОСФЧВ КИЖ ЦЖНЖ, УЛХЦЛТЛУУФ ЧСЩЭОШЧЕ О И ШЦЛШОП.
var a, b, c, alpha: real;
begin
write('Введите стороны: ');
read(a, b, c);
if a < b then swap(a, b);
if a < c then swap(a, c);
alpha := (b * b + c * c - a * a) / (2 * b * c);
if a >= b + c then
writeln('Треугольник нельзя построить')
else if alpha = 0 then
writeln('Треугольник прямоугольный')
else if alpha > 0 then
writeln('Треугольник остроугольный')
else
writeln('Треугольник тупоугольный')
end.
1. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.