Основные алгоритмические конструкции. Блок-схемы. Паскаль
методическая разработка по информатике и икт по теме

                                      4, 2,1

PROGRAM PRIMER;

  VAR A,B,С,I,Z:INTEGER;

BEGIN

  WRITELN(‘ВведитеA,B,C’);

  READLN(A,B,C);

  WHILE A>B DO

    BEGIN

      A:=A-1;

      WRITELN(‘A=’,A);

    END;

  IF A>B

    THEN

      BEGIN

        Y:=A+B;

        WRITELN(‘Y=’,Y);

      END

    ELSE

      WRITELN(А,B,C);

  REPEAT

    C:=C+1;

    WRITELN('C=',C);

  UNTIL C>5;

  FOR I:=2 TO 4 DO

    BEGIN

      Z:=С+I;

      WRITELN('Z=',Z);

    END;

END.

Записать приведенный ниже алгоритм на языке блок-схем и на языке программирования ПАСКАЛЬ. Исполнить алгоритм при A,P,X=2,3,0;

6. В переменные A,P,X ввести с клавиатуры 3 целых числа.
7. В цикле с параметром считать и печатать (P+ I)*2 для I = 4,5,6
8. Если A=P*X, то найти и напечатать сумму A,P,X, иначе найти и напечатать произведение A,P
9. В цикле "пока", пока  A+P+X>2 уменьшать значение P на 1 и печатать значения P,X.
10. В цикле "до" увеличивать P на 3 и печатать результат до тех пор, пока P станет больше 8

                                      2,    3,    0

Записать приведенный ниже алгоритм на языке блок-схем и на языке программирования ПАСКАЛЬ. Исполнить алгоритм при W,M,B=3,4,1;

11. В переменные W,M,B ввести с клавиатуры 3 целых числа.
12. В цикле с параметром считать и печатать (M+ I)*2 для I = 4,5,6
13. Если W=M*B, то найти и напечатать сумму W,M,B, иначе найти и напечатать произведение W,M
14. В цикле "пока", пока  W+M+B>4уменьшать значение M на 1 и печатать значения M,B.
15. В цикле "до" увеличивать M на 3 и печатать результат до тех пор, пока M станет больше 9

                                      3,  4,    1