В данной работе представлено 28 фраз, которые закодированы с шифра Цезаря нужно указать на сколько сделан сдвиг. Ниже указаны исходные фразы. Задания: 1. ЗГ, ЪИОСЕИН ФПИУХИР, РС АХС ДЮОС ДЮ ИЬИ ТСОДИЗЮ. ТОСШС ХС, ЪХС СР ЛРСЖЗГ ЕРИКГТРС ФПИУХИР, ЕСХ Е ЪИП ЧСНЦФ! 2. СМОТЗИД М СМЫЙЗТ СЙ УФТХМЦЙ! СМОТЗИД М СМЫЙЗТ, М Ж ТХТЕЙССТХЦМ Ч ЦЙЩ, ОЦТ ХМПАСЙЙ ЖДХ. ХДРМ УФЙИПТКДЦ М ХДРМ ЖХЙ ИДИЧЦ! 3. ЗМХУЦРАК ТНПУИЙЕ ТНЬКИУ ТК ФУТНСЕГЧ ЦЕСН, Е ЙРД ЙКЧКО УЬКТБ ШЧУСНЧКРБТУ ЖКМ ПУТЫЕ НС ЗЦК УЖЯДЦТДЧБ Н ХЕЦЧУРПУЗАЗЕЧБ. 4. УЛ ЮЖСД, УОРФЙФ УЛ ШЦФЙЖД, ХФЭОУЕД ХЦОТЩЧ. О ЛЯЛ ЧЭОШЖД КФСЙФТ ХЦЛКЩХЦЛКОШВ, ЭШФ РФШ - КЦЛИУЛЛ О УЛХЦОРФЧУФИЛУУФЛ МОИФШУФЛ. 5. В РИ ШЛУЦУЖ, В РИЕУСТГХСОСЖ, В ТФЛШЛГХУ. В ЛКЦЪГБ ЗЦЫЛ ФЕСЛШ ТГЩЛИРХСЕ. Л ПРИ ТСЪИПЦ-ХС ЕФИЖЗГ ТСТГЗГБХФВ СЪИРЯ ЖОЦТЮИ ЗЦЫЛ. 6. УЙЬЙЩТИТЖ СДИТ ПВЕМЦА. УЙЬЙЩТИЯ ХТХЦДЖПГВЦ ЕТПАЬЧВ ЫДХЦА ЫЙПТЖЙЫЙХЦЖД. РДПТ ЦТЗТ — ПЧЫЬЧВ ЙЗТ ЫДХЦА. УЙЬЙЩТИЯ ХТЛИДПМ РМФ. 7. ТКУЖЪУЙНСЕ ЖУРБЭЕД ЦСКРУЦЧБ, ЬЧУЖА ФХУЧНЗУЦЧУДЧБ ЗХЕИЕС, ТУ ИУХЕМЙУ ЖУРБЭЕД, ЬЧУЖА ФУОЧН ТЕФКХКПУХ ЙХШМБДС. 8. ФЗЖ УЛРФШФЦФЛ ИЦЛТЕ ЫЦЖУОСО УЛХФКИОМУФЧШВ О ТФСЭЖУОЛ: ФУ — СДЗЩЕЧВ ЛЛ РЦЖЧФШФП, ФУЖ — ЩКОИСЕЕЧВ ЛЙФ ЗЛНФЗЦЖНОД. 9. АХС СЪИРЯ ТИЪГОЯРС, НСЖЗГ КГДЮЕГБХ ЗУЦКИМ. РИ Ц ЕФВНСЖС ДЮО ЗУЦЖ. Л В ДСБФЯ ФХГХЯ ХГНЛП, НГН ЕКУСФОЮИ, НСХСУЮП РЛЪХС РИ ЛРХИУИФРС, НУСПИ ЩЛЧУ. 10. ЙХЦА ЦДОТЙ ЦЖЙФИТЙ УФДЖМПТ. ЖХЦДП УТЧЦФЧ, ЧРЯПХГ, УФМЖЙП ХЙЕГ Ж УТФГИТО - М ХФДЛЧ КЙ УФМЖЙИМ Ж УТФГИТО ХЖТВ УПДСЙЦЧ. 11. РГЙН ТНПУИЙЕ ТК ЙЕГЧ ЧКЖК ЦЧУРБПУ, ЦПУРБПУ ЧА ЦЧУНЭБ. УТН ЙЕГЧ ЧКЖК ЦЧУРБПУ, ЦПУРБПУ ЧА ЦЧУНЭБ ФУ НЪ СТКТНГ. 12. ЭШФ ЧСЩЭОСФЧВ ФКУЖМКБ, ТФМЛШ УОРФЙКЖ ЗФСВЮЛ УЛ ЧСЩЭОШЧЕ. УФ ШФ, ЭШФ ЧСЩЭОСФЧВ КИЖ ЦЖНЖ, УЛХЦЛТЛУУФ ЧСЩЭОШЧЕ О И ШЦЛШОП.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
puzhalina77Frik
22.01.2022 14:55
Первая задача:
var
  i, c, sum: shortint;
  sr: real;
  m: array[1..20] of shortint;

begin
  sum := 0;
  readln(c);
  for i := 1 to c do
  begin
    readln(m[i]);
    sum := sum + m[i];
  end;
  sr := sum / c;
  sr := round(sr * 100) / 100;  //если округлять не нужно, удали эту строчку
  writeln('Среднее арифметическое: ', sr);
end.

Вторая задача:
var
  i, c: shortint;
  p: integer;
  m: array[1..20] of shortint;

begin
  p := 1;
  readln(c);
  for i := 1 to c do readln(m[i]);
  for i := 1 to c do p := abs(p * (m[i]));
  writeln('Произведение всех модулей массива: ', p)
end.
0,0(0 оценок)
Ответ:
rubcovayana
22.01.2022 14:55
Program b1;
var y,x1,x2,x3:Real;
Begin

Writeln('Write x1,x2,x3 : ');
Readln(x1,x2,x3);
if x1>4 then writeln(sqrt(abs(sin(sqr(x1)-1)/cos(sqr(x1)-1))):10:20);
if x1>=0 then if x1<=4 then writeln(-2*x1:10:20);
if x1<0 then writeln(Exp(cos(x1)):10:20);

if x2>4 then writeln(sqrt(abs(sin(sqr(x2)-1)/cos(sqr(x2)-1))):10:20);
if x2>=0 then if x2<=4 then writeln(-2*x2:10:20);
if x2<0 then writeln(Exp(cos(x2)):10:20);

if x3>4 then writeln(sqrt(abs(sin(sqr(x3)-1)/cos(sqr(x3)-1))):10:20);
if x3>=0 then if x1<=4 then writeln(-2*x3:10:20);
if x3<0 then writeln(Exp(cos(x3)):10:20);

Readln(x1);
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота