Первая программа может выглядеть так:
uses Crt;
const n =6;
Type Mas= array [1..n] of integer;
var A: Mas;
i, Sum : integer;
begin
ClrScr;
Sum:= 0;
for i:=1 to n do
begin
A[i]:=i*i;
Sum:=Sum+A[i];
end;
for i:=1 to n do
if (A[i] mod 4=0 ) then WriteLn(' Номер школы: :', i);
Writeln (' Количество компьютеров: ', Sum);
ReadLn;
end.
Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
1) 1, 2)1, 3)34, 4)2, 5)наложение, 6)рисовать, писать, подчеркивать, клей карандаш, 7)незнаю сорри
Ответ 2 307 708 920
<span>Например: </span>
<span>0 – это ноль </span>
<span>1 – это один (и это предел разряда) </span>
<span>10 – это два </span>
<span>11 – это три (и это снова предел) </span>
<span>100 – это четыре </span>
<span>101 – пять </span>
<span>110 – шесть </span>
<span>111 – семь и т. д. </span>
<span>10001001: </span>
<span>1*2^7 + 0*2^6 + 0*2^5 + 0*2^4 + 1*2^3 + 0*2^2 + 0*2^1 + 1*2^0 = 128 + 0 + 0 + 0 + 8 + 0 + 0 + 1 = 137</span>
Const n=10;
var
a:array[1..n,1..n] of integer;
i,j:integer; p1,p2:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
p1:=1; p2:=1;
for i:=1 to n do
begin
p1:=p1*a[i,i];
p2:=p2*a[i,n-i+1]
end;
writeln('p1 = ',p1,' p2 = ',p2);
end.
Пример (для n=5):
Исходный массив:
1 10 14 0 5
12 13 13 5 0
7 7 8 7 14
5 11 3 17 14
12 1 19 17 10
p1 = 17680 p2 = 26400
