5.Составте программу для расчета суммы оплаты за электроэнергию ,если известно,что стоимость 1 КВт/ч - id2135398320210719 от Анжелика200611111 19.07.2021 23:47

Question

Информатика: 5.Составте программу для расчета суммы оплаты за электроэнергию ,если известно,что стоимость 1 КВт/ч в дневное время равно 22,49 теньге и использовано х Квт,а в ночное время стоимость 1 Квт/ч равно 19,57 и использовано х1 Квт

Анжелика200611111 · Accepted Answer

Результат работы и листинг программы в приложениях. Написано в PascalABC.NET но должно работать во всех Паскалях. ---------------------------- PROGRAM A20; CONST     max = 100; TYPE     matrix = array[1..max,1..max]of shortint; VAR     ar:matrix;     num:byte;     i,j:byte;     a,b,c:byte;     q:boolean; BEGIN   repeat   //  num := 5;     write( Введите размер матрицы n= );     readln(num);         for i:=1 to num do begin       for j:=1 to num do         read(ar[i,j]);     end;       i:=1;//диагональ...

MOGZ ответил