Var
a,b,c:integer;
begin
write('Введите a,b,c ');
readln(a,b,c);
writeln(a,'+',b,'+',c,'=',a+b+c);
writeln(a,'*',b,'*',c,'=',a*b*c);
writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3);
end.
Монитор (т); Е; клавиатура (к); сканер (с); принтер (т)
текст (Г)
Блок схема, результат работы и сама программа в приложениях.
В КОИ-8 было 32 байта (1 символ кодируется 1байтом =8бит)
В Unicod стало 64 байта (1 символ кодируется 2-я байтами =16 бит)