Const
n=10;
var
i,m,k:integer;
a:array[1..n] of integer;
begin
Randomize;
Write('Исходный массив: ');
for i:=1 to n do begin a[i]:=Random(90)+10; Write(a[i],' ') end;
Writeln;
Writeln('Введите целое число: '); Read(m);
k:=0;
for i:=1 to n do
if a[i]<m then Inc(k);
Writeln('Количество чисел, меньших ',m,' равно ',k)
end.
Тестовое решение:
Исходный массив: 42 89 49 25 96 87 94 93 41 28
Введите целое число:
50
Количество чисел, меньших 50 равно 5
Program sto;Vara,b:integer;BeginReadln(a);b:= 100 - a; //Вычисляем остаток которы нужно прибавить к числу, и записываем его в переменную b;Writeln('Если к вашему числу прибавить: ',b,', то в результате будет 100'); //Выводим ответ пользователю;End.
Для второй фотографии:
1) Радио
2) Телефонная связь
3) Телевиденье
4) Спутники из космоса
6) а)408:17=24(10)=11000(2)
б) 2410(8)=10100001000(2)=1288(10); 27(8)=10111(2)=23(10); 1288:23=56(10)=111000(2)=70(8)
в) D4A(16)=110101001010(2)=3402(10); 1B(16)=11011(2)=27(10); 3402:27=126(10)=1111110(2)=7E(16)