Это без использования файлов
var spisok:array [word] of string; {объявляем массив для хранения фамилий}
n,i,k:word; {n - количество фамилий,i - вс переменная, k - количество фамилий в списке равных 8 или 9 буквам}
begin
write('Введите количество фамилий в списке n = ');readln(n);
for i:=1 to n do begin
write('Введите фамилию ',i,' :');
readln(spisok[i]);
if (length(spisok[i])=9) or (length(spisok[i])=8) then inc(k); {inc(k) - это тоже самое ,что k:=k+1; }
end;
writeln('Количество фамилий в списке состоящих из 8 или 9 букв = ',k);
end.
П.С. если вам потребуется,обработка конкретно через фаил напишите мне, так как в условии вы не указали точно через что!
var a,b,c:integer; стороны для треугольника
s,p:real;
begin
write('Введите сторону а = ');readln(a);
write('Введите сторону b = ');readln(b);
write('Введите сторону c = ');readln(c);
if ((a < b + c) or (b < a + c) or (c < a + b)) then begin проверка на существовании треугольника, а то как площадь получить если треугольника нет=)
p:=(a+b+c)/2; формула полупериметра
s:=Sqrt(p*(p-a)*(p-b)*(p-c)); формула Герона для нахождении площади треугольника
writeln('Площадь треугольника равна s = ',s:0:4);
end else writeln('Треугольник не существует!');
end.
П.С. что не понятно постараюсь объяснить, но я думаю вы прекрасно во всем разберетесь;)
Во вложении блок схема
Чему будет равно значение переменной s после выполнения фрагмента программы
s := 1;
x := 2;
while x < 12 do begin
x := x + 2;
s := s + 1;
end;
s = 2