1.найти разность показаний счетчика на конец месяца и на начало месяца.
2.умножить на цену одного квт/часа
Ответ дал: Гость
в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.
а для расшифровки эти коды нужно вычитать, получаем
в п а м я
3 17 1 14 33
п щ о я к
17 27 16 33 17
-
3 17 1 14 33
14 10 15 19 17
м и н с к
н щ ё п
15 27 7 17
-
3 17 1 14
12 10 26 3
к и е в
Ответ дал: Гость
1. записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).
2. вычесть цифры младшего разряда. примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.
3. записать результат под горизонтальной чертой на вертикали единиц.
4. повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.
Ответ дал: Гость
пример программы для паскаль
program a;
const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or ((161 < = a[i]) and (a[i] < =175)) or ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index = ',i+1,'; bukva - ''',char(a[i]),'''',' a[i] = ',a[i]); end;
beginwriteln; for i: =1 to n do b[i] : = random(300); for i: =1 to n do begin write(' ',i,' = ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b); readln;
Популярные вопросы