var
nm,snm:array of string;
age:array of integer;
k,s:integer;
begin
write('Введите общее кол-во студентов - '); readln(k);
setLength(nm,k); setLength(snm,k); setLength(age,k);
for var i1:=0 to k-1 do begin
writeln('[Студент ',i1+1,']');
write('Имя - '); readln(nm[i1]);
write('Фамилия - '); readln(snm[i1]);
write('Возраст - '); readln(age[i1]);
end;
for var i2:=0 to k-1 do
if age[i2]<16 then s:=s+1;
writeln; writeln('Кол-во студентов которым меньше 16 лет = ',s,' человек:');
for var i2:=0 to k-1 do begin
if age[i2]<16 then writeln(nm[i2],' ',snm[i2],' ',age[i2],' лет');
end;
end.
while True:
sentence = input('Введите предложение: ')
if sentence.count(' ')>=2: break
print('Предложение должно содержать как минимум три слова')
length = 0
for symbol in sentence:
if not symbol in [',',' ','/','.','!','&','?','-']:
length+=1
if length > 10: print('Хорошо')
else: print('Не хорошо')
print(length)
Чуть поэлегантнее:
while True:
sentence = input('Введите предложение: ')
if sentence.count(' ')>=2: break
print('Предложение должно содержать как минимум три слова')
length = sum(not symbol in [',',' ','/','.','!','&','?','-'] for symbol in sentence)
if length > 10: print('Хорошо')
else: print('Не хорошо')
print(length)
