Таблица кодировки символов устанавливает соответствие между: символами, их десятичными номерами и двоичными кодами, символами<span> разных алфавитов, символами и количеством байтов, которые они занимают</span>
Var
s,n,k:integer;
begin
Writeln('введите натуральные числа, 0 - окончание ввода');
k:=0; s:=0;
repeat
Read(n);
if n<>0 then
if n mod 10 = 8 then begin k:=k+1; s:=s+n end
until n=0;
if k>0 then Writeln(s/k:0:4)
else Writeln(0)
end.
<u>Пример</u>
введите натуральные числа, 0 - окончание ввода
34 17 8 32 1424 28 7 0
18.0000
program massiv;
var i,j,kol:longint;
a:array[1..6,1..8]of longint;
begin
for i:=1 to 6 do
for j:=1 to 8 do
read(a[i,j]);
for i:=1 to 6 do
for j:=1 to 8 do
if a[i,j]=0 then kol:=kol+1;
writeln(kol);
end.
Копирование в буфер обмена.
Ответ:
Блок схема
Объяснение:
В прямоугольной области описывается действие, в параллелограмме ввод или вывод.