var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.
var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.
4.Основные свойства алгоритмов следующие:
1. Понятность для исполнителя — исполнитель алгоритма должен понимать, как его выполнять. Иными словами, имея алгоритм и произвольный вариант исходных данных, исполнитель должен знать, как надо действовать для выполнения этого алгоритма.
Var a, b: integer;
begin
Writeln('Введите два числа');
Readln(a, b);
repeat
if a > b then a := a Mod b else
b := b Mod a;
until (a = 0) Or (b = 0);
writeln('НОД = ', a + b);
<span>end.</span>
Не менее должен содержать 256
1. Переводим в двоичную систему
11000101 11101101 00000000 00000000
2. Первая 1 в старшем байте (
<u>1</u>1000101
) значит число отрицательное.
3. Оставшиеся 7 цифр это порядок числа ( 1000101
- 1000000 = 101) это 5 в десятичной системе.
4.Значит наше число это 11101, 101 в двоичной
5. Переводим в десятичную получаем -29,625