Var n, i, count: integer;
begin
count := 0;
for i := 1 to 16 do begin
read(n);
if n mod 10 = 6 then count := count + 1;
end;
writeln(count);
end.
Я считаю что это рассказ мы узнаём из него много нового
Источник информации - Я.
Кодирующие устройство - телефон.
Канал Связи - Линия Сотовой связи.
Декодирующее устройство - телефон друга.
Приемник Информации - друг.
периметр это сумма длин всех сторон. следовательно для того чтобы найти периметр нужно длину умножить на два и ширину умножить на два потом два ответа сложить (а*2)+(б*2) или же сложить все стороны