Var s:string; i:integer; begin readln(s); var wo:=s.ToWords(s); for i:=0 to length(wo)-1 do begin; delete(wo[i],pos(' ',wo[i]),1); if (pos('ов',wo[i])=length(wo[i])-1) then writeln(wo[i]); end; end.
Пример ввода: Иов Петров Петрон Человек Пример вывода: Иов Петров
Запишем вычисление суммы "в столбик", помня, что вычисления проводятся в системе счисления по некоторому основанию n>7. Почему именно n>7? Потому, что если бы основание системы было равно или меньше семи, в записи числа цифра семь не могла бы существовать. 12 + 17
31 В младшем разряде 2+7=1, чего быть не может, следовательно, 2+7=11 и единица пошла в старший разряд. Подтверждение этому мы видим при сложении в старшем разряде: 1+1+1=3 (учтена единица от переноса). Мы знаем, что 2+7=9 в десятичной системе счисления, а у нас получилось 11. Находим разницу: 11-9=2. Именно на столько основание системы счисления меньше десяти. 10-2=8. Следовательно, система счисления восьмеричная. ответ: в восьмеричной системе счисления.
//Pascal ABC.NET Версия 2.2 Сборка 790 var ma:array[1..10,1..10] of integer; ar:array[1..10] of integer; i,j,s:integer; begin; randomize; writeln('Matrix:'); for i:=1 to 10 do begin; writeln; for j:=1 to 10 do begin; ma[i,j]:=random(-10,10); write(ma[i,j]:5); if ma[i,j]<0 then ar[i]+=ma[i,j]; end; end; writeln; writeln('Final array:'); for i:=1 to 10 do writeln(ar[i]); end.
Var
s:string;
i:integer;
begin
readln(s);
var wo:=s.ToWords(s);
for i:=0 to length(wo)-1 do
begin;
delete(wo[i],pos(' ',wo[i]),1);
if (pos('ов',wo[i])=length(wo[i])-1) then writeln(wo[i]);
end;
end.
Пример ввода:
Иов Петров Петрон Человек
Пример вывода:
Иов
Петров