<span>что вечно тормозит и тупит?</span>
<em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadInteger2;
if a.IsEven then Writeln(a,' - четное')
else Writeln(b,' - четное')
end.
<u>Примеры</u>
3 18
18 - четное
10 7
10 - четное
7 9
9 - четное - это неверно, нарушено условие (нет четных)
6 12
6 - четное - это верно, хоть условие и нарушено (оба четных)
Ответ:
Двоичная арифметика достаточно проста. Причем надежность представления информации высокая.
Конечно, компьютер "ПОНИМАЕТ ЛОГИКУ" (Булеву алгебру). Если бы компьютер не обладал этой возможностью - то это был бы просто дорогие счеты.
И все же правильный ответ: в) Главное здесь - "два устойчивых состояния": включено-выключено, есть ток - нет тока, намагничено-не намагничено и т.д типа "любит-не любит"
Подробнее - на Znanija.com - znanija.com/task/33128125#readmore
Объяснение:
Program z1;
var a:array[1..25] of integer;
Hmax,Hmin,i,R:integer;
begin
for i:=1 to 25 do readln(a[i]);
Hmax:=a[1];
Hmin:=a[1];
for i:= 1 to 25 do
begin
if Hmax<a[i] then Hmax:=a[i];
if Hmin>a[i] then Hmin:=a[i];
end;
R:=Hmax-Hmin;
writeln(R);
end.