Какая програма должнаобеспечить ввод случайных чисел в диапозоне от 1 до 100 а затем проверить сколько четных чисел и вывести сообщение на экран кол-во записей случайных чисел 100

Program test; const n = 100; var i,k: integer; m: array[1..n] of integer; begin randomize; for i: =1 to n do m[i]: =random(1,100); for i: =1 to n do if m[i] mod 2 =0 then inc(k); writeln('количество четных чисел: ',k); end.

1) 111+101=1100

разбор: производим сложение, начиная с младших разрядов

1+1=10, пишем 0, 1 переносим в старший разряд

1+0 = 1, добавляем перенесённую ранее единицу 1+1=0, пишем 0, 1 переносим в старший разряд

1+1+1=11

 

2) 207+4152=4361

7+2=11, пишем 1, 1 переносим в старший разряд

0+5+1=6

2+1=3

0+4=4

 

3) a12+69=a7b

2+9=в

1+6=7

а+0=а

 

4) 100111-10001=10110

начинаем также в столбик с младшего разряда

1-1=0

1-0=1

1-0=1

0-0=0

10-1=1

 

5) 342-215=125

2-5 не получается, добавляем единицу из старшего разряда

12-5=5

3-1=2 (было 4, но единицу мы вычли в предыдущем действии)

3-2=1

 

6) a1b2-97c=9836

2-c не получается, берём единицу из старшего разряда

12-с=6

a-7=3 (было b, но одну единицу мы использовали ранее)

1-9 не получается, берём едиинцу из старшего разряда

11-9=8

из а ранее вычли единицу, поэтому получим не а, а 9.

 

надеюсь, понятно : )

var x, n: integer; begin write('x = '); readln(x); write('n = '); readln(n); while n > 0 do begin if n mod 10 = x then begin writeln('yes'); readln; exit; end; n : = n div 10; end; writeln('no'); readln; end.

 

 

 

 

 

 

 

// 2

var a: array[1..100] of integer; i, n: integer; begin randomize; n : = random(18 + 3); writeln('n = ', n); for i : = 1 to n do begin a[i] : = random(11) - 5; while a[i] = 0 do a[i] : = random(11) - 5; write('a[', i, '] = ', a[i], ' '); end; a[i + 1] : = 0; writeln; i : = 1; while(a[i + 1] < > 0) do begin if (a[i] = a[i + 1]) then begin writeln('a[', i, '] = a[', i + 1, '] = ', a[i]); readln; exit; end; inc(i); end; writeln('нет ни одной пары одиноковых соседних чисел'); readln; end.