Определите истинность составного высказывания: (¬А /\¬B) /\ (C \/ D), состоящего из простых высказываний: А = {Принтер – устройство вывода информации}, В = {Процессор – устройство хранения информации}, С = {Монитор – устройство вывода информации}, D = {Клавиатура – устройство обработки информации}. Указание: Сначала устанавливаем истинность простых высказываний: А, В, С, D.

minutes = int(input('Введите количество минут: '))

day = int(input('Введите день недели (1 - понедельник ... 7 - воскресенье): '))

discount = int(input('Введите размер скидки (число): '))

price = float(input('Введите цену за 1 минуту: '))

if (day == 6 or day == 7):

 print("%.3f" % float((minutes * price) - (minutes * price / 100 * discount)))

else:

 print("%.3f" % float(minutes * price))

Объяснение:

minutes = int(input('Введите количество минут: '))  # Вводим количество минут с клавиатуры

day = int(input('Введите день недели (1 - понедельник ... 7 - воскресенье): '))  # Вводим номер дня недели с клавиатуры

discount = int(input('Введите размер скидки (число): '))  # Вводим размер скидки с клавиатуры

price = float(input('Введите цену за 1 минуту: '))  # Вводим цену за 1 минуту разговора с клавиатуры

if (day == 6 or day == 7):  # Если суббота или воскресенье

 print("%.3f" % float((minutes * price) - (minutes * price / 100 * discount)))  # Выводим цену с учетом скидки (( после запятой 3 знака ))

else:  # Иначе

 print("%.3f" % float(minutes * price)) # Выводим без учета скидки (( после запятой 3 знака ))

Const n = 5;
  m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(21)-10; write(a[i,j]:4);
    end;
    writeln;writeln;
  end;
  //сумма всех элементов массива
  for i:=1 to n do
    for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
    s:=0;
    for j:=1 to m do begin
      s:=s+a[i,j];
    end;
    writeln ('Строка: ',i,' сумма:',s);
  end;   
end.