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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

viking0899

02.04.2023 06:07

Перечислить все виды информации. охарактеризовать любые три...

SemenOr

20.05.2021 00:53

5 предложений на интернет-зависимость...

Paszhaa

11.08.2021 04:28

Наука которая изучает информацию передачи,хранения, обработки,информации называется...

googlman

11.08.2021 04:28

Даны запросы к поисковой системе : a) чемпионы (бег & плавание) б) чемпионы& плавание в)чемпионы бег плавание г) чемпионы & европа & бег & плавание...

Mira12202

11.08.2021 04:28

Выполните опирасию сложение над десятичную систему счисление 101010+1101...

катя4842

11.08.2021 04:28

Периведите троичное число 222 в десятичную систему счиление...

диёра2010

11.08.2021 04:28

Валфавите некоиорого языка 4 буквы сообщение содержит 20 символов обем в битах найти...

марусяice1

02.09.2021 23:41

Переведите число из десятичной системы.в двоичное число 549...

VoltGame

02.09.2021 23:41

Дано натуральное число определить его максимальную цифру...

Anonim2118

30.01.2023 00:47

По информатике. найти сумму цифр данного целого числа. программа. паскаль...

Ответ:

almas05

29.10.2021 01:17

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

0,0(0 оценок)

Ответ:

babohka1

21.08.2021 08:06

1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
nn=100;
var
i,j,n,t:integer;
a:array[1..nn] of integer;
begin
Write('n='); Read(n);
Randomize;
for i:=1 to n do begin
    a[i]:=Random(3);
    Write(a[i],' ')
    end;
Writeln;
for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
        end;
for i:=1 to n do Write(a[i],' ');
Writeln;
end.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку