Помогите срочно!!!! Даю 80 баллов!!!
Приложения:
![](https://st.uroker.com/files/63f/63f9e05b9449c610b9f463d14c399b53.jpg)
axatar:
Язык программирования?
Ответы
Ответ дал:
0
Ответ:
Решение на Паскале
Объяснение:
var s,k,m:integer;
s1,s2:string;
imya:array [1..100] of string;
begin
readln(s1);readln(s2);
s1:=s1+' ';s2:=s2+' ';
k:=0; m:=0; s:=0;
while(pos(' ',s1)>0) do begin k:=k+1; delete(s1,1,pos(' ',s1));end;
while(pos(' ',s2)>0) do begin m:=m+1; imya[m]:=copy(s2,1,pos(' ',s2)-1);
delete(s2,1,pos(' ',s2));end;
s:=k mod m;
writeln(imya[s]);
readln; end.
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад