Составить блок схемы к задачам.
1. Найти сумму первых 10 натуральных чисел кратных 3.
2. Найти произведение первых 8 натуральных чисел кратных 7.
3. Вывести первые 25 натуральных четных чисел.
4. Вывести первые 15 натуральных чисел кратных 5.
6. Ввести число с клавиатуры. Вычитать от него 1, пока оно не станет равным 0.
7. Ввести число с клавиатуры. Прибавлять к нему 5, до тех пор, пока оно не станет
больше самого себя в 10 раз.
8. Ввести число с клавиатуры. Отнимать от него 2, до тех пор, пока оно не станет
меньше самого себя вдвое.
9. Ввести натуральное число с клавиатуры. Найти количество его цифр.
10. Ввести натуральное число с клавиатуры. Найти сумму его цифр что сможете ((

1)tut kazhdii simvol zanimaet 1 bait(tak imeem bukvi alfavita( soobshenie s uchetom probela zanimaet 10 bait.

2)tut kazhdii simvol zanimaet 1 bait(tak ispol'zovani znaki + i - pmimo 0 i 1);

  soobshenie zanimaet 11 bait.

3)analogichno 15 bait.

1 input a

2 input b

3 input c

20 if a> b then goto 60

30 if b> c then goto 110

40 max=с

50 goto 120

60 if a> c then goto 90

70 max=с

80 goto 120

90 max=a

100 goto 120

110 max=b

120 if a< b then goto 160

130 if b< c then goto 210

140 min=с

150 goto 220

160 if a< c then goto 190

170 min=с

180 goto 220

190 min=a

200 goto 220

210 min=b

220 print min*max

program msd; uses crt; var a,l,proiz,b,i: longint; beginclrscr; readln(a); proiz: =1; while true do beginl: =a mod 10; a: = a div 10; if odd(l) = true thenproiz: =proiz*lelseb: =b+1; i: =i+1; if a = 0 then break; end; if b = i then writeln('0')elsewriteln(proiz); if (proiz> 99) and (proiz< 1000) then writeln('da')else writeln('net'); readkey; end.