Ввести два слова. распечатать столько последних букв от длинного слова, на сколько оно длиннее короткого.. паскаль ..

173

271

Посмотреть ответы 3

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

snoopfray

Информатика

4,4(17 оценок)

Var s1,s2 : string; begin readln(s1); readln(s2); while (length(s1)> 0) and (length(s2)> 0) do begin delete(s1,1,1); delete(s2,1,1); end; writeln(s1+s2); end.

SofiDu

Информатика

4,5(69 оценок)

// pascalabc.net 3.1, сборка 1174 от 22.02.2016 begin var s1: =readlnstring('1-е слово'); var s2: =readlnstring('2-е слово'); if s2.length> s1.length then swap(s1,s2); var n: =s1.length-s2.length; if n> 0 then writeln(copy(s1,s1.length-n+1,n)) end.