Написать на паскале! введите массив adr[1..10],элементами которого являются адреса студентов в формате: город улица дом квартира.вывести те элементы ,которые содержат город"краснодар".ввод и вывод данных оформите разными цветами.

150

377

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

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

yvvv

Информатика

4,7(79 оценок)

Uses crt; var adr: array[1..10] of string; sub: array[1..10] of string; i,k: integer; s: string; begin; for i: =1 to 10 do begin; writeln('input town of ',i,'student'); readln(s); adr[i]: =adr[i]+s+' '; writeln('input street of ',i,'student'); readln(s); adr[i]: =adr[i]+s+' '; writeln('input house of ',i,'student'); readln(s); adr[i]: =adr[i]+s+' '; writeln('input apartament of ',i,'student'); readln(s); adr[i]: =adr[i]+s; if pos('краснодар',adr[i])< > 0 then begin; inc(k); sub[k]: =adr[i]; end; end; textcolor(4); writeln('result: '); for i: =1 to k do writeln(sub[i]); end.

goodblood197

Информатика

4,7(91 оценок)

// pascalabc.net 3.2, сборка 1374 от 10.01.2017 // внимание! если программа не работает, обновите версию! begin writeln(14.step(7).takewhile(x-> x< 100).count) end. результат 13