Program n1;
<span>var x,y:real;
</span><span>begin
</span><span>readln(x);
</span><span>y:=round(x);
</span><span>if y=x then writeln('число не дробное')
</span><span>else writeln('число дробное');
</span><span>end.</span>
Много воды, но о большой скорости никто не говорил, верно?)
если,1 байт = 8 бит,
86016/8 = 10752 байт
<span>10752 / 1024 = 10,5 Кбайта</span>
Ответ:
1.потому что ккомпьютер уневерсальный(т.е может использоватся в самых различных областях)и он управляется програмным обиспичением.
2.без програм компьютер не может выполнять функции которые нужны пользователью
3а.информация представлена в 0 и 1
3б.совокупность команд, исполнение которых компьютером позволяет выполнить какую-либо задачу.
остальные не знаю сорри.
Const
n = 8;
nmax = 32767;
var
a: array[1..n] of integer;
i, t, min: integer;
begin
min := nmax;
for i := 1 to n do
begin
Read(t); a[i] := t;
if (t > 0) and (t mod 2 = 0) then
if min > t then min := t
end;
if min <> nmax then
Writeln('Минимальный положительный четный элемент равен ', min)
else
Writeln('В массиве нет четных положительных элементов')
end.
<u>Тестовое решение:</u>
353 638 -1000 -452 320 -18 19 0
Минимальный положительный четный элемент равен 320