Var Y: array [1..11] of integer;
var i, sum, n: integer;
begin
randomize;
for i:=1 to 11 do begin
Y[i]:=-10+random (21);
write (Y[i], ' ');
end;
sum:=0;
for i:=1 to 11 do begin
if (i mod 2<>0) and (Y[i]<0) then sum:=Y[i]+sum; //№1
if i mod 2<>0 then Y[i]:=Y[i]*Y[i]; //№2
if (i mod 2=0) and (Y[i]=1) then inc (n); //№3
end;
writeln;
writeln ('Сумма =', sum);
writeln ('Количество 1 на четных местах =', n);
<span>end.
</span>
begin
var (m, p) := ReadInteger2('Укажите число и показатель степени:');
if p = 0 then
Write(1)
else
begin
var z := Sign(p);
p := Abs(p);
var r: int64 := m;
for var i := 2 to p do
r *= m;
if z > 0 then
Write(r)
else
Write(1 / r);
end;
end.
==PascalABC.NET==
В D/2013/Весна создали папку Май, позже переместили Ландыш.doc в папку Май, соответственно правильный ответ четвертый: D/2013/Весна/Май/Ландыш.doc
#include <iostream>
using namespace std;
union type {
short si;
int i;
float f;
char ch;
bool b;
};
int main()
{
type example;
cout << "Union:\n";
example.si = 123;
cout << " Short int " << example.si << endl;
example.i = 2000145;
cout << " Int " << example.i << endl;
example.f = 3.14;
cout << " Float " << example.f << endl;
example.ch = 'a';
cout << " Char " << example.ch << endl;
example.b = false;
cout << " Bool " << example.b << endl;
return 0;
}