Program n1;
var sum,a: real;
i: integer;
begin
i:=0;
sum:=0;
while i<10 do
begin
readln(a);
sum:=sum+a;
i:=i+1;
end;
write(sum);
end.
Program rok;
var a:array [1..30] of integer;
i,s,n:integer;
begin
s:=0;
n:=0;
randomize;
for i:=1 to 30 do
begin
a[i]:=random (25)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to 20 do
begin
if (a[i]>0) then
s:=s+1;
if (a[i]=0) then
n:=n+1;
end;
writeln ('Количество
положительных чисел=',s);
writeln ('Количество
нулей=',n);
end.
1) 110101 (2) = 2^5*1 + 2^4*1 + 2^3*0 + 2^2*1 + 2^1*0 + 2^0*1= 32 + 16 + 4 + 1 = 53
2)
49 | 1
24 | 0
12 | 0
6 | 0
3 | 1
1 | 1
110001
3 значимых нуля
4)
| 3 | 7 | 11 | 8 |
| 6 | 6 | 6 | D1-2=6 |
Ответ 2.
8)
31???2 = 1*3 -> 3+1 -> 4*3 -> 12+2 -> 14*3 -> 42+2
1 -> 44
1. +1
2. +2
3. *3
Ответ 313232
Что было видно, то ответил.
program raf105;
var a:array[1..30,1..20] of string;
i,j,o:integer;
s:string;
begin
for i:=1 to 30 do
for j:=1 to 20 do
a[i,j]:= '';
writeln('Вводите слова по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(s);
if s <> '0'
then
begin
o:= o+1;
for i:=1 to length(s) do
a[o,i]:= s[i];
end;
until s = '0';
writeln;
writeln('Вывод:');
for i:=1 to o do
begin
for j:=1 to 20 do
if a[i,j] = 'а'
then a[i,j]:= 'о';
for j:=1 to 20 do
if j <> 1
then
begin
a[i,1]:= a[i,1] + a[i,j];
a[i,j]:= '';
end;
writeln(a[i,1]);
end;
end.
