var
A: array [1..3] of Integer;
i, imin, imax, imid: Integer;
begin
Write('Введите 3 целых различных числа: ');
Readln(A [1], A [2], A [3]);
if (A [1] = A [2]) or (A [2] = A [3]) or (A [1] = A [3]) then begin
Writeln ('Имеются одинаковые числа!');
Exit;
end;
imin := 1;
imax := 1;
for i := 2 to 3 do begin
if A [i] < A [imin] then
imin := i;
if A [i] > A [imax] then
imax := i;
end;
for i := 1 to 3 do begin
if (i <> imin) and (i <> imax) then
imid := i;
end;
Writeln ('Произведение максимального и среднего числа = ' + IntToStr (A [imax] * A [imid]));
end;
1. Переменные n1,n2,n3 — для цифр числа
2. Переменная number — для числа
3. Переменная res — для True или False
var
number, n1, n2, n3 : integer; // объявляем
res : boolean; // переменные
begin
write('Введите трехзначное число : ');
readln(number); //
просим пользователя ввести число
readln; // чтобы программа не закрывалась end<span>.</span>
Алгоритм линейный, протокол работы такой:
Введите значение переменных a и b:
24
-85
c= -61
d= -122
d= -119
d= -118
Значение выражения равно -118
Ответ:
не до конца понял ответы, думаю из объяснения поймете
Объяснение:
Кликаем по кнопке Пуск.
Откроется меню кнопки Пуск, в котором щелкаем по опции «Все программы»
Среди перечня программ находим «Стандартные».
Среди «Стандартных» находим «Служебные».
Кликаем по опции «Служебные»
Далее кликом по опции «Таблица символов» запускаем ее.
Выделяем нужный символ и нажимаем ctrl-C (Copy) двигаемся куда надо вставить и жмем ctrl-V (Paste)
152 (10сс)=128+16+8=2^7+2^4+2^3=10011000 (2сс)
ответ 5 нулей
