Нужно составить алгоритмы (из блок-схем): 1) в лототроне по порядку лежат шары номерами от 10 до 100, выбрасывает каждый седьмой. составьте алгоритм для определения номеров выпавших шаров. 2) найти сумму первых n чисел. 3) найти сумму s чётных чисел и произведение нечётных b. 4) число а возводят в квадрат и результат увеличивают на 1. полученное число снова возводят в квадрат и результат увеличивают на 1. этот процесс продолжается до тех пор, пока не будет получено некоторое число, больше 500. найдите это число.

1

архитектор - для моделирования чертежей на компьютере !

врач - картатека всех больниц хроницца   в компьютере 

бизнесмен - зновать последнии новости в интернети с компьютера

бухгалтер - расчёты с компьютера

композитор - с компьютера и специальных программ может прослушивать свои произведения и доробатовать их

секретарь - записывает в компьютер все важные зделки

писатель - пишет на компьютере свои произведения ( удобно   если что то не понравилось удалил и переделал ! и не надо портить бумагу 

художник - берёт шаблоны с компьютера и перересовывает их на холст

модельер - моделирует платья на компьютере

2 

програмист - пишет программы , а пользователь пользуется программами написаноми программистами !  

думаю, что 19,5 кб = 0,019 мб.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.