1. Ввод строк S и T из файла в переменные (или в массивы).
2. Проверяем длины массивов. Если они разные - в выходном файле сразу пишем NO и заканчиваем программу.
3. Проверяем, что соответствующий знак в S равен знаку в T.
И так в цикле по всем знакам.
4. Если в массиве S встречаются буквы или цифры o, 0, i, 1, m, n,
то проверяем, что в массиве Т та же буква или соответствующая другая.
Вместо о может быть о или 0, вместо 0 может быть 0 или о.
Вместо i может быть i или 1, вместо 1 может быть 1 или i.
Вместо m может быть m или n, вместо n может быть n или m.
5. Если все буквы совпадают с учетом возможных замен, то в выходном файле пишем YES. Если не совпадает, то пишем NO.
Var //Объявляем переменные
i:integer;
s:string;
begin // Начало работы блока
readln(s); // В переменную S записываем введенную строку
i := Pos('мама', s); // В переменную i записываем количество символов до данного слова
if i > 0 then //Если количество символов больше нуля тогда
begin
Delete(s, i, 4); // Удаляем из веденной строки (Переменная S), слово мама, содержащие 4 символа
Insert('папа', s, i); // Заменяем словом Папа
end; //Конец
writeln(s); //Выводим на экран полученный текст
end.
<span>235 в 10 с\с=11 в 234 с\с</span>
1) program n_1;
var a:array[1..100] of integer;
i, n:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(450)+250;
writeln(a[i],' ');
end;
end.