Var
a, b, i:integer;
Begin
write('Введите значения a и b: ');
read(a, b);
writeln('Цикл for');
for i := b downto a do write(i*i*i, ' ');
writeln();
writeln('Цикл while');
i := b;
while i >= a do
begin
write (i*i*i, ' ');
dec(i);
end;
writeln();
writeln('Цикл repeat');
i:=b;
repeat
write(i*i*i, ' ');
dec(i)
until i < a
writeln();
End.
Program Natur;
Uses Crt;
Var a, Summa, n : integer;
Begin
Clrscr;
write('N=');
readln(N);
{Цикл с предусловием}
a:=2;
Summa:=0;
while a<=N do
begin Summa:= Summa + a; a := a + 1 end;
Writeln (' Результат первого суммирования:' , Summa) ;
{Цикл с постусловием}
а:=1;
Summa:=0;
repeat Summa:=Summa+ а; а:=а+1 until a>N;
Writeln
(' Результат второго суммирования:' , Summa) ;
{Цикл с параметром} Summa:=0;
for а := 2 to N do Summa : =Summa + a;
<span>Writeln (' Результат третьего суммирования:', Summa); End</span>
1. Используя шифр Цезаря, декодировать следующие фразы:
a. ЛМБТТОЬК ШБТ
КЛАССНЫЙ ЧАС (сдвиг -1)
b. ВЁМПЁ ТПМОЧЁ РФТУЬОЙ
БЕЛОЕ СОЛНЦЕ ПУСТЫНИ (сдвиг -1)
c. РЦЙРГ ТСПСЪЮ
НУЖНА ПОМОЧЫ (сдвиг -3, или описка или ошибка или так и задумывалось)
2. При использовании шифра перестановки кодирование осуществляется перестановкой букв по одному и тому же правилу. Восстановите слова и определите правила перестановки:
обмен букв 1 и 3, 4 и 6, 7 и 8 если есть
a. НИМАРЕЛ
Минерал
b. ЛЕТОФЕН
Телефон
c. НИЛКЙЕА
Линейка
d. НОМОТИР
Монитор
e. РАКДНАША
Карандаш
3. Используя шифр перестановки из предыдущего задания, закодируйте слова: ГОРИЗОНТ, ТЕЛЕВИЗОР, МАГНИТОФОН
Ригозитн
Летиверзо
Гамтинфоон
Дополнительная задача (5 баллов)
Даны фразы на языке ниуэ (древний полинезийский язык) и их переводы на русский язык:
1. Kua kitia e koe a Pule. - Ты видишь Пуле.
2. Tо lеlе е mаnu. - Птица полетит.
3. Kua kоukоu a kоe. - Ты купаешься.
4. Kua fanо a ia. - Он идет.
5. Ne kitia he tama a Siоne. - Мальчик видел Джона.
6. Kua fano e tama. - Мальчик идет.
7. To kitia e Sione a ia. - Джон увидит его.
8. Ne liti e ia e kulї. - Он бросил собаку.
9. Kua kai ne kulї e mаnu. - Собака ест птицу.
Задание. Переведите на язык ниуэ: (правильность не гарантирую, тем более с артиклями)
1. Мальчик пойдет.
To fano e tama
2. Ты съешь собаку.
To kai a koe e kulї
3. Джон купался.
Ne kоukоu e Sione
Всего 91 (50 отриц Т+0= 40 полож Т) измерений температуры. Для двоичного кодирования нужно 128 бит, значит на один показатель нужно 7 бит
program kolco;
var
s,s1,s2:real;
r1,r2:integer;
begin
writeln('введите r');
readln(r1);
writeln('введите R');
readln(r2);
s1:=pi*sqr(r1);
s2:=pi*sqr(r2);
S:=s2-s1;
writeln('площадь кольца равна:',S:2:3);
readln;
end.