Var
y: real;
begin
y := tan(3 * Pi);
y := y * y; {квадрат}
y := y * y; {четвертая степень}
y := (1 - y) / (ln(8) / ln(3));
writeln('y=', y)
end.
700.000÷5600 = 125 книг
700 МБ = 700.000 кбайт
В стандартном Паскале нет функции десятичного логарифма, поэтому воспользуемся соотношением lg(x) = ln(x) / ln(10).
Кроме того, показатель степени у числа "е" (-x² / 2xy) можно упростить до -x / 2y.
var
a,x,y:real;
begin
Write('Введите x и у через пробел: '); Read(x,y);
a:=1e5*Ln(Abs(0.8*x))/Ln(10)*Exp(-x/(2*y));
Writeln('a=',a)
end.
Дневник,телефон,книга (газета),компьютер
Var
i,s:integer;
a:array [1..12] of integer;
begin
randomize;
s:=0;
for i:=1 to 12 do
begin
a[i]:=Random(35)+10;
writeln(a[i]);
if a[i] mod 3=0
then s:=s+a[i];
end;
writeln(s);
end.