Правильно ли на ваш взгляд читать программу ассемблер транслятором?

Здесь используется связка ИЛИ, такое выражение ложно тогда и только тогда когда ложны высказывания из которых оно состоит, а в остальных случаях выражение истинно.

1. буква а первая буква в слове аист или сова - истинно.

2. две прямые на плоскости паралельны или пересекаются - истинно.

3. луна планета или 2+3=5 - ложь.

Program gh;

   var A: array[ 1..10] of integer;

         i: integer;

begin

  for i:=1 to 10 do

     begin

        A[i] := random(20) + 20;

        write(A[i]);

     end;

end.

а) 

var i,n,s: integer;
begin
readln(n);
s:=0;
for i:=1 to n do begin
s:=s+i;
end;
writeln(s);
end.

б)

var a,n,i,s: integer;
begin
readln(n);
s:=0;
a:=2;
for i:=1 to n do begin
s:=s+a;
a:=a+2
end;
writeln('Сумма первых ',n,' четных чисел равна ',s);
a:=1;
s:=0;
for i:=1 to n do begin
s:=s+a;
a:=a+2;
end;
writeln('Сумма первых ',n,' нечетных чисел равна ',s);
end.

Сначала на ту сторону поплывет один мальчик и один солдат затем солдат останется а мальчик приплывет. Затем на лодку к мальчику сядет второй солдат и поплвет на другую сторону.

Program n1;
Uses CRT;
Const n=5; m=7;
Var A: array[1..n,1..n] of integer;
i,j,s,k: integer;
begin
clrscr;
randomize;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
s:=s+a[i,j];
k:=k+1;
end;
writeln;
end;
Writeln('srednee arifmeticheskoe =',s/k:4:4);
readln
end.

налить масло в бидон 5 литров, перелить это в бидон 3-х литров. В бидоне 5 литров осталось 2 литра. из бидона 3 литра вылить масло в 8 литровый. налить в 3 литровый бидон из 5 литрового, а в 5 литровый налить из  8 литрового.из 5 литрового налить в 3 литровый. В 5 литровом осталось 4 литра масла, а из 3 литрового перелить в 8 литровый.

1 символ=1байт

считаем, сколько весит 1 книга:

40*50*200=400000байт

Находим кол-во книг

80000000000/400000=200.000 книг

(вроде так) 

Каждый символ кодируется одним байтом. Значит, объём информации в книге равен количеству символов в ней. На странице символов 60*40=2400, а в книге всего символов 2400*150=360000байт

var

a : array [1..100] of integer;

i, n, s : integer;

begin

s:=0;

writeln('Введите число n');

read(n);

for i:=1 to n do

 begin

   writeln('Введите число: ');

   read(a[i]);

 end;

writeln;

writeln('Последовательность:');

for i:=1 to n do

 write(a[i],' ');

writeln;  

for i:=1 to n do  

 if (a[i] mod 2 = 0) then

   s:=s+a[i];

writeln('Сумма четных: ',s);

end.    

9*14=126 см^2 (размер фото)

126*576=72576 (всего точек на фото)

72576*2=145152 (место в битах)=18144 байта=17.7 Кб