1) var i: integer; s: array [1..7] of string; begin writeln('Введите 7 фамилий: '); for i := 1 to 7 do readln(s[i]); for i := 1 to 7 do if (s[i][1] = 'А') and (length(s[i]) = 6) then writeln('Подходящие фамилии: ', s[i]) end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
