Исполнитель, который рисует на холсте? ( 8 букв )
Напишите определение

-Информатика-

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

а столбчатая диаграмма

б график 

в ярусная диаграмма

г областная диаграмма

дкруговая диаграмма