в .Запрограмуйте введення значення змінної s.
2) Створіть змінну s1 для формування результату і запишіть у неї
порожній рядок.
3) Число символів у рядку s має бути парним, тому запишіть
оператор розгалуження для реалізації такої дії: якщо довжина
рядка s є непарним числом, то додати до рядка пропуск:
if(len(s)%2 != 0): s = s+' '
4) Запишіть оператор циклу для перебору непарних індексів.
В тілі циклу до рядка s1 додаються символи s[i+1] і s[i]:
for i in range(0, len(s), 2):
s1 = s1+s[i+1]+s[i]
5) Виведіть зашифроване повідомлення.
6) Збережіть програмний код у файлі з іменем Vprava5.
Випробуйте програму.
Переконайтесь, що повідомлення успішно розшифровується за
до цієї ж програми.
var
i: integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln('Программа находит 4-значные числа, которые делятся на 27');
writeln('Список таких чисел:');
for i:=1000 to 9999 do
if (i mod 27)=0 then writeln(i);
end.
Program Ilgiz98;
var
mass: array [1..20] of integer;
i, k, n: integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln('Среди элементов массива программа находит числа, которые больше заданного числа N и одновременно кратны 5');
write('Введите число N '); readln (n);
writeln('*** Вычисляю... ***');
k:=0;
writeln('Массив чисел:');
for i:=1 to 20 do
begin
mass[i]:=random(1000)-500;
writeln(mass[i]);
if (mass[i]>n) and ((mass[i] mod 5)=0) then k:=k+1;
end;
writeln();
writeln('Всего найдено ',k,' таких чисел');
end.