type diapazon=-20..60;
var a: array [1..15] of diapazon;
i,max,min: integer;
begin
max:=1;
min:=1;
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
if (max/min) > 2 then writeln('Верно') else writeln('Неверно');
end.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите трехзначное число').ToString.Inverse.ToInteger;
Writeln('n=',n)
end.
<u>Пример</u>
Введите трехзначное число 436
n=634
Потому, что краснй цвет означает радость. Радость потому, что Христос Воскрес!
Шина адреса, на которой устанавливается адрес требуемой ячейки памяти или устройства, с которым будет происходить обмен информацией;
шина данных, по которой собственно и будет передана необходимая информация; и, наконец,
<span>шина управления, регулирующей этот процесс (например, один из сигналов на этой шине позволяет компьютеру различать между собой адреса памяти и устройств ввода/вывода) .</span>
Дискреция- это право, возможность действовать по своему усмотрению