Впиши в фигуры название растений из списка 3 класс 3 раздел 33

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.

цифровая камера сохраняет изображение в цифровом формате на носителях с матрицы. если раньше фотография получалась из-за процессов, то сейчас пленку заменяет карта памяти - матрица заполняет значение каждого элемента-пиксела. таким образом получается растовое изображение.

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.