1. Машина. Сколько машин существуют на свете? Оооочень много.
2. Береза. Тот же случай
6. Операционная система. Это не личное название, поэтому оно и общее.
7. Клавиатурный тренажер.
Схема Горнера для полиномов:
1 - 2x + 3x² - 4x³ = 1 + x(-2 + x(3 - 4x))
Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.
Var d,s:real; i:integer;
begin
d:=20; s:=d;
for i:=2 to 7 do
begin
d:=d+2;
s:=s+d;
end;
writeln('s = ',s);
end.
Результат:
<span>s = 182</span>