Внебольшом городке живут пятеро друзей: иванов, петров, сидоров, гришин и алексеев.профессии у них разные: один из них-маляр, другой-мельний, третий-плотник, четвёртый почтальон, пятый-парикмахер. петров и гришин никогда не держали в руке малярной кисти.иванов и гришин всё собираются посетить мельницу, на которой работает их товарищ. петров и иванов живут в одном доме с почтальоном.иванов и сидоров каждую неделю играют в городки с плотником и маляром. петров брал билеты на футбол для себя, и для мельника. определите профессию каждого из друзей. можно с объяснениями, а то не доганяю как все это сделать!
Ответы
Var f: text; i,n: integer; s,s1: string; begin; assign(f,'text.txt'); reset(f); while not(eof(f)) do read(f,s); close(f); n: =0; while n< > length(s) do begin; inc(n); for i: =0 to 9 do begin; str(i,s1); if s[n]=s1 then begin; delete(s,n,1); s1: =s1+s1; insert(s1,s,n); inc(n); end; end; end; writeln(s); end.
Const n=3; var ma: array[1..n,1..n] of integer; i,j,p: integer; begin; p: =0; randomize; writeln('matrix: '); for i: =1 to n do begin; writeln; for j: =1 to n do begin; ma[i,j]: =random(2); write(ma[i,j]: 4); end; end; writeln; for i: =1 to n do if ma[i,1]< > ma[i,n] then p: =1; if p=0 then write('да') else write('нет'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Звук t=3м7с r=44, 1кбу i=24 найти v в мб
Автор: mos197653
Записать выражение на языке программирования Pascal.
Автор: ludmila-malev280
по информатикеответье на вопросы
Автор: lika080489
C++ . Дано натуральное число. Верно ли, что цифра a встречается в нем реже, чем цифра b?
Автор: Avdeeva Yelizaveta
Преобразуй алгоритм в программу на языке Паскаль:
Автор: polikarpov-70
Графичесуое изображение памятника клавиатуре в екатеринбурге.. ☺
Автор: nikitavertiev98400
расчерти таблицу , в один столбик слева запиши фамилии, сверху профессии
и начинай заполнять.
петров и гришин никогда не держали малярной кисти- ставь минус напротив их фамилии они точно не маляры.
.иванов и гришин всё собираются посетить мельницу, на которой работает их товарищ. ставь минус напротив их фамилии они точно не мельники.
когда все отметишь остануться пустые клеточки там поставь +
у тебя должно получиться иванов-парихмахер
петров плотник
сидоров мельникгришин почтальон
алексеев маляр
весь смысл в таблице, без неё тяжеловато
!