Вот так попробуй
var
a: array[1..10] of integer;
x, i: integer;
l: boolean;
begin
write('Введите ряд чисел - ');
//заполняем массив
for i:=1 to 10 do
read(a[i]);
//вводим число, которое нужно проверить
write('Введите число - ');
readln(x);
//проверяем, есть ли число в массиве
//если есть, то l будет присвоено true
for i:=1 to 10 do
if a[i] = x thenl := true;
//проверяем,чему равна l
if l=true then
writeln('Число ',x,' есть в массиве.')
else
writeln('Числа ',x,' нет в массиве.');
<span>end.</span>
Если учитель скачал exe через ян. диск то антивирус или сам браузер через который он качает файл может блокировать файл, тем самым оставив коренные элементы программы но скачав сам exe.
Убедись что ничего не мешает скачке файла, может быть на компьютере не хватает памяти)
//<em>ax</em><em> + </em><em>b</em><em> = 0,</em><span> где </span><em>а и b</em><span> – любые числа.
var a,b,x:real; //инициализирует переменные a,b и x типа real, с плавающей точкой
begin; //начало программы
readln(a); //ввод a
readln(b); //ввод b
x:=-b/a; //находим корень
writeln(x); //выводим корень
end. //конец программы</span>
1
4 дороги = 2^2 т.е. 2 бита информации
2
16 = 2^4 значит символ веси 4 бит
Вес текста = 384 * 4 бит = 1536.0 бит = 192.0 байт = 0.1875 Кбайт