Скорее всего открыл: Файл -> Сведения
и посмотрел "Автор" и "Кем изменено" и эти значения оказались одинаковыми у нескольких человек.
Автор меняется правой кнопкой мыши, для изменения поля "Кем изменено" нужно внести какие-нибудь правки на своём компьютере и сохраниться.
добавь или рисунком или расскажи в чем проблема посчитать колво записей подпадающих под условие. пиши в лс
var P,a,h: integer;
S: real;
begin
a:=12;
h:=5;
S:=1/2*a*h;
P:=3*a;
writeln('Площадь треуголника = ',S);
writeln('Периметр треуголника = ',P);
end.
Var n,i:integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
writeln(i,' ',i*i,' ',i*i*i);
end.
Пример:
n = 7
1 1 1
2 4 8
3 9 27
4 16 64
5 25 125
6 36 216
7 49 343
В Мбайт 1740,8
В Кбайт 1782579,25