Задание 3. Дано число Р. Если оно больше нуля, то вычислите куб числа Р. Если оно меньше нуля, прибавьте к нему число К. Если оно равно нулю, то нужно из него вычесть число 2. Порядок ввода данных: P, K, 2. Результат Например 7 -8 15-6 в програме путон
Программа:
Python:
import sys
max, min = -(sys.maxsize), sys.maxsize
c = 0
N = int(input('N = '))
print('Введите массив:')
arr = [int(input()) for i in range(N)]
for i in arr:
if len(str(i)) == 2 and i % 3 == 0:
if i < min: min = i
elif i > max: max = i
if max != -(sys.maxsize): print('Максимальное число:', max)
else: print('Нет максимального числа')
if min != (sys.maxsize): print('Минимальное число:', min)
else: print('Нет минимального числа')
Pascal:
var
arr: array of integer;
N, i, max, min, j, c: integer;
procedure Symv(j: integer; var c: integer);
begin
while j > 0 do begin
j := j div 10;
c += 1;
end;
end;
begin
max := -MAXINT;
min := MAXINT;
write('N = '); readln(N);
SetLength(arr, N);
writeln('Введите элементы массива:');
for i := 0 to N - 1 do readln(arr[i]);
writeln(arr);
for i := 0 to N - 1 do begin
Symv(arr[i], c);
if (c = 2) and (arr[i] mod 3 = 0) then begin
if arr[i] < min then min := arr[i]
else if arr[i] > max then max := arr[i]
end;
c := 0;
end;
if max <> -MAXINT then writeln('Максимальное число: ', max)
else writeln('Нет максимального числа.');
if min <> MAXINT then writeln('Минимальное число: ', min)
else writeln('Нет минимального числа.');
end.
При установке программа КуМир по умолчанию рекомендует выбрать для установки папку внутри директории "Program Files". Если в качестве папки для установки программы КуМир пользователем была выбрана его личная папка, то после деинсталляции (удаления) программы КуМир эта папка уничтожается безвозвратно. Иногда данное поведение не является желательным.
Крайне желательно использовать для установки ту папку, которую система КуМир предлагает по умолчанию. Если это невозможно, например, из-за отстуствия прав, то настоятельно рекомендуется создать отдельную папку, используемую только для установки системы КуМир, и ни для чего больше, и установить систему КуМир в неё. Надо помнить, что эта папка тоже будет удалена при деинсталляции системы КуМир.
Объяснение: