15.1 На бесконечном поле имеются две перпендикулярные друг другу
стены, расположенные в виде буквы «Т», длины стен неизвестны.
Робот находится в клетке, расположенной непосредственно над
горизонтальной стеной. На рисунке указан один из возможных расположения стен и Робота (Робот обозначен буквой «Р»).
Напишите для Робота алгоритм, закрашивающий все клетки,
расположенные непосредственно с правой стороны вертикальной
стены. Робот должен закрасить только клетки, удовлетворяющие
данному условию. Например, для приведённого справа рисунка Робот
должен закрасить следующие клетки (см. рисунок).
При исполнении алгоритма Робот не должен разрушиться, выполнение
алгоритма должно завершиться. Конечное расположение Робота может
быть произвольным. Алгоритм должен решать задачу для любого
допустимого расположения стен и любого расположения и размера
прохода внутри стены. Алгоритм может быть выполнен в среде
формального исполнителя или записан в текстовом редакторе.
15.2 Напишите программу, которая в последовательности натуральных чисел определяет сумму всех
чисел, кратных 3 и оканчивающихся на 9. Программа получает на вход натуральные числа, количество
введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания
ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не
превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 3 и
оканчивающихся на 9.
Пример работы программы:
Входные данные Выходные данные
16
29
56
9
39
0
48
begin
writeln('1 строка:');
readln(s1);
writeln('2 строка:');
readln(s2);
l1:=length(s1);
l2:=length(s2);
writeln('Длина 1-ой строки = ',l1);
writeln('Длина 2-ой строки = ',l2);
for i:=1 to l1 do
if (s1[i]='А')or(s1[i]='а') then s1[i]:='о';
for i:=1 to l2 do
if (s2[i]='К')or(s2[i]='к') then s2[i]:='л';
writeln('Изменённые строки:');
writeln(s1);
writeln(s2);
end.
Пример:
1 строка:
АБВГДабвгд
2 строка:
Ку-ка-ре-ку
Длина 1-ой строки = 10
Длина 2-ой строки = 11
Изменённые строки:
оБВГДобвгд
лу-ла-ре-лу
Внимание! Если программа не работает, обновите версию!
begin
var s1:=ReadlnString('Строка-1:');
var s2:=ReadlnString('Строка-2:');
Writeln($'Длина 1-й строки {s1.Length}, второй строки {s2.Length}');
s1:=s1.Replace('а','о'); Writeln('Строка-1: ',s1);
s2:=s2.Replace('К','л'); Writeln('Строка-2: ',s2)
end.
Пример
Строка-1: А роза упала на лапу Азора
Строка-2: Карл у Клары украл кораллы
Длина 1-й строки 26, второй строки 26
Строка-1: А розо уполо но лопу Азоро
Строка-2: ларл у ллары украл кораллы