Ответ: 4.
Конечно, прокручивать это все "в уме" смысла нет. См. вложение.
Var s,s0:string;
begin
writeln('Введите строку s:');
readln(s);
writeln('Введите строку s0:');
readln(s0);
if pos(s,s0)>0 then writeln('ДА') else writeln('НЕТ');
end.
Пример:
Введите строку s:
две
Введите строку s0:
Даны две строки
ДА
А какое задание? Какое время? Если PS то одно если PC то другое.
нажимай на любые синие квадратики или поставь все квадраты ровно!
Результат перевода числа<span> 138 </span>
<span>из десятичной в двоичную систему счисления: </span>
<span>10001010.
Или это не методом разности? </span>