//прога на Pascal`e
var
a : array[1..10] of shortint;
i: byte;
count1, count2 : integer;
begin
randomize;
write ('Сформированный массив: ');
for i:=1 to 10 do begin
a[i]:=random (99)-49;
write (a[i], '; ');
if a[i]>0 then inc(count1, a[i]) else inc(count2, 1);
end;
writeln ();
writeln ('Сумма положительных элементов: ',count1);
write ('Кол-во отрицатедьных элементов : ', count2);
end.
===== PascalABC.NET =====
begin
var x := ReadReal;
var y := x - x * x / 3 + x ** 6 / 4;
Println(y);
y := 3 ** (-x) + cos(x) - Sin(x * x);
Println(y);
y := (x ** 3 + 9 * x + 12) / (x * x - 6 * x + 15);
Println(y);
y := x + 12 * Sin(2 * x) + Abs(x ** 3 + x ** 5);
Print(y)
end.
первый букву "и",второй "собачка" (чаще всего используется в электронной почте),а последний знак просто как-бы дробь что ли,не знаю.
Ответ:
Объяснение:
// Возведение в степень
program stepen;
var
p,i,n, a:integer;
begin
write('введите число и степень');
readln(a,n);
p:=1;
for i:=1 to n do p:=p*a;
writeln('Число ',a, ' в степени ',n,' = ',p);
readln;
end.
//Сумма нечетных цифр числа
program project1;
var
a, b, s : integer;
begin
s := 0;
write('введите число: ');
readln(a);
while a <> 0 do
begin
b := a mod 10;
if b mod 2 <> 0 then s := s + b;
a := a div 10
end;
writeln('сумма нечетных цифр: ', s);
readln;
end.
//Сумма четных чисел до n
program summach;
var
S,n,i:integer;
begin
Write('Введите n=');
readln(n);
if n mod 2<>0 then n:=n-1;
n:=n div 2;
s:=0;
for i:=1 to n do
s:=s+2*i;
writeln('s=',s);
readln;
end.
//===================================
// сумма четных с циклом repeat
program summach1;
Write('Введите n=');
readln(n);
if n mod 2<>0 then n:=n-1;
s:=0;i:=1;
repeat
s:=s+2*i;
i:=i+1;
until 2*i>n ;
writeln('n=',n);
writeln('s=',s);
readln;