3. Заданы стоимость 1 кВт-чи показания счетчика за предыдущий и текущей месяцы. Необходимо вычислить расход электроэнергии за период и стоимость израсходованной электроэнергии.
Расчет стоимости электроэнергии
Показания
Показания
Номера
Стоимость
счетчика
Расход
счетчика
квартир
предыдущего
электроэнергии электроэнергии
текущего месяца
месяца
1
8462
9463
2
6873
7235
HU
3
5648
6945
4
9610
10450
5
1458
1794
6
8961
9061
7
3469
4567
8
7863
7999
9
6348
9642
10
1234
4563
1кВт/ч
0,21р.​

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

наливаем  воду в сосуд для 5 и переливаем в сосуд из 3-х литров в сосуде их 5-ти остаёться 2,переливаем в ведро,повторяем тоже самое ещё образом получаем 4 литра))