Заполните случайными числами в диапазоне от 1 до 10 два массива: А[1:10] и B[1:10]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если А[2] = В[2] = 6, то на экран надо вывести:

Номер: 2 значение: 6

Если таких совпадений нет, то вывести на экран сообщение об этом.

В отчет включить тексты программ, реакции ЭВМ.

2^i = 100

i = 7 бит необходимо для кодирования любого от 1 до 100

64 * 7 =  448 бит = 56 байт

набрать 8л

два раза отлить 3, будет 8-3-3=2л

перелить 2л из 8 в 3

набрать 8

долить из 8 в 3 1л, так чтоб он стал полным. 8-1=7л

begin   //начало программы

var nk, nt, ck ,ct, s: integer   // переменных типа действительные числа;

writeln('введите количество карандашей'); //вывести на экран надпись

readln(nk);   // запись ответа пользователя в переменную nk

writeln('введите количество тетрадей'); //вывод на экран надписи

readln(nt); // запись ответа пользователя

writeln('введите стоимость 1 карандаша');   // вывод на экран надписи

readln(ck); // запись ответа пользователя в переменную

writeln('введите стоимость 1 тетради');

readln(ct);

s: =(nk*ck)+(nt*ct); // вычисление стоимости покупки

writeln('стоимость покупки: ',s);   // вывод стоимости покупки на экран

end.   // конец программы

(ck-стоимость 1 карандаша, ct-стоимость 1 тетради, s-стоимость покупки)

(nk-количество карандашей, nt-количество тетрадей)