Регистрация
jokerreal30
21.04.2020 23:04
Информатика
Есть ответ 👍

Составить программу для вычислению надо!

186
194
Посмотреть ответы 1

Ответы на вопрос:

morfisleep
morfisleep
4,6(9 оценок)
// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   // вводим строку, перекодируем к нижнему регистру и делим на два слова   var a: =readlnstring.tolower.towords;   var (n1,n2): =(a[0].length,a[1].length); // длины слов   if n1< > n2 then begin writeln('no'); exit end;   for var i: =1 to n1 do begin       var p: =pos(a[0][i],a[1]);       if p=0 then begin writeln('no'); exit end;       delete(a[1],p,1)       end;   writeln('yes')   end. примеры stop pots yes abbc bac no паровоз зовопар yes

Популярно: Информатика