6 слов можно составить))))))))))))))
Поля «год издания» и «рейтинг» необходимо превратить в
числа. Простейший способ для этого: вставить в пустую ячейку 1/ копировать ее/
выделить столбей цифр/специальная вставка/умножить.
<span>Если строк много, то лучше сверху оставить несколько штук и
снизу, остальные скрыть. Когда необходимо можно отобразить. Сами формулы видны
в строке формул.</span>
Программы для решения задач - в прилагаемом файле.
Var a,b,c,i,sum,cp:integer;
begin
sum:=0;
cp:=0;
Randomize;
writeln('Посчитайте сложение:');
while i<10 do
begin
a:=random(40)+10;
b:=random(60)+10;
sum:=a+b;
write('Сколько будет ',a,'+',b,'= ');
read(c);
if c=sum then begin
cp:=cp+1;
writeln('Молодец!');
end else writeln('Неправильно');
i:=i+1;
end;
writeln('Всего правильных ответов ',cp);
write('Оценка:');
if (cp<=4) then write('Очень плохо (2)') else
if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else
if (cp>=7) and (cp<=8) then write('Хорошо (4)') else
if (cp>=9) then write('Отлично! (5)');
end.<span>
</span>
var
x,b: integer;
begin
read(x)
b:=(Abs(Sin(Sqr(x))+Cos(x)))/Power(x+2,1/3)
end.