Паскаль.1)определите, сколько чисел, введённых пользователем делятся на 3 без остатка. ввод чисел пользователем заканчивается после ввода цифры 0. 2)найдите сумму цифр числа, меньших 5. например, для числа 715245 это будет 1+2+4=7. написать блок-схему и программу.

var  c,count: integer; begin  write('введите число ');   count : = 0;   readln(c);   while c < > 0 do  begin      if (c mod 3) = 0 then          inc(count);       write('введите число ');       readln(c);   end;   writeln('count = ',count);   readln; end.

//вторая программа

var  c, summ: integer; begin  write('c = ');   summ : = 0;   readln(c);   while c < > 0 do  begin      if (c mod 10) < 5 then          inc(summ, c mod 10);       c : = c div 10;   end;   writeln('summ = ',summ);   readln; end.

1)

program abc;

var num,count: integer;

begin

readln(num);

while num< > 0   do

begin

    if (num mod 3) = 3 then

          count: =count+1

end;

writeln(count)

end.

2)

program abc;

var num,sum: integer;

begin

readln(num);

while num< > 0   do

begin

    if (num mod 10) < 5 then

          sum: =sum+num mod 10;

    num: = num div 10

end;

writeln(sum)

end.

program xxx; var i, j, k, n, p, s : integer;       a : array [1..20] of integer; begin  write ('введите количество инверсий -');   readln(k);   write ('введите количество ламп -');   readln(n);   for i: =1 to n do      a[i]: =0;   for i: =1 to k do      begin          write ('введите инверсию p-');           readln(p);           j: =p;           while j< =n do              begin                  if a[j]=0 then a[j]: =1 else a[j]: =0;                   j: =j+p              end      end;   s: =0;   for i: =1 to n do      if a[i]=1 then s: =s+1;   write ('ламп горит -', s);   readlnend.

конструктор автомобилей: проектирования

писатель: не один писатель сейчас использует даже тот самый word чтобы печатать там

бухгалтер: сдает отчеты через компьютер, тоже и в налоговой ну или еще где-то

врач: для различных анализов 

: те же нужные конференции, призентации и все такое делается на компьютере