1) Возьми 3 (=3).
2) прибавь 3 (=6).
2) умножь на 3 (=18).
Если только указанные команды, то
1. Умножь на 2 (=6).
2. Умножь на 2 (=12).
3. Вычти 3 (=9).
4. Умножь на 2 (=18).
Программа получает на вход N, почле чего в цикле постепенно обрабатывает все натуральные числа от 1 до N включительно и в ячейку памяти s откладывает их квадраты.
program summa;
uses crt;
var N,a,s,i: integer;
begin
read(N); a:=0; s:=0;
for i:=1 to N do
begin
a:=a+1;
s:=s+(a*a);
end;
writeln(s);
end.
1) y:= sqrt(a*x+b*x+c*c)/(15*x-sin(x))
2) y:= -12*sqrt(x*(y*y)+cos(a/2))
3) z:= (sin(x)+cos(x))/(sqrt(x*x+15))
4) S:= ((26*k-m)/(6-4*k))-56*m*k
5) y:= x-(sqrt((y*y+2)/2))+2*y
Зачем нам вещественный массив?
var
i, j, n: integer;
tmp: double;
mas: array[1..101] of double;
begin
randomize;
readln(n);
for i:=1 to n do
begin
mas[i]:= random(-100,107);
end;
for i:=1 to n do
for j:=1 to n do
if mas[j]>mas[j+1] then
begin
tmp:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=tmp;
end;
for i:=1 to n do
write(mas[i], ' ');
end.
var
a: array[1..10] of real;
b,c,d,f: integer;
begin
f:=1;
writeln('Введите 10 чисел');
for d:=1 to 10 do
begin
readln(a[f]);
if a[f]>0 then
c:=c+1;
if a[f]<0 then
b:=b+1;
f:=f+1;
end;
writeln('Положительных чисел ',' ',c);
writeln('Отрицательных чисел ',' ',b);
end.