Выяснить, ли цифры в записи числа по убыванию. написать программу в pascalabc.net и нарисовать блок-схему.

Var
  n: integer;
  a, b: byte;

begin
  read(n);
  b := n mod 10;
  n := n div 10;
  a := n mod 10;
  n := n div 10;
  while (a > b) and (n <> 0) do
  begin
    b := a;
    a := n mod 10;
    n := n div 10;
  end;
  if a > b then
    writeln('Цифры числа расположены по убыванию')
  else
    writeln('Цифры числа расположены не по убыванию')
end.

Vara,b,i,k,max:integer;beginreadln(a);max:=0;k:=0;while a<>1 do begin
if (a mod 10) > max then beginmax:=(a mod 10);endelse k+=1;
a:=a div 10;if a<10 then begin  if (a mod 10) > max then beginmax:=(a mod 10);endelse k+=1;a:=1;
end;end;if k=0 then writeln('Убывание') else writeln('Неубывание');end.

На C++:

#include <iostream>

#include <cmath>

using namespace std;

int main() {

setlocale(0, "RU");

int a, b, c;

cout << "Введите коэффициенты уравнения: ";

cin >> a >> b >> c;

cout << "D = b^2 - 4 * a * c\n";

cout << "D = " << b * b << " - " << 4 * a * c << endl;

double D = (b * b) - (4 * a * c);

cout << "D = " << D << endl;

int d = sqrt(D);

cout << "vD = " << endl << endl;

 

 

a *= 2;

int x1 = (-b - d) / a;

int x2 = (-b + d) / a;

cout << "x1 = (-b - vD) / 2a = " << x1 << endl;

cout << "x2 = (-b + vD) / 2a = " << x2;

return 0;

}

1) Наблюдать это: смотреть и слушать.
2) Сбор информации - это наблюдение и записывание.
     Представить информацию на носителе - это зарисовать или записать.
3) * это цветок (листья, на которые падает дождь)
    * это собачка (два уха, 4 лапки, хвост, 2 глаза и черный носик)
получения информации:
    - наблюдение
    - беседа
    - измерение
    - исследование
    - чтение
5) Действия с информацией: изображать схему, рисовать, записывать, наблюдать, запоминать, мыслить, думать.
     Действия с предметами: рубить дрова, резать картофель, готовить суп.
6) А) бинокль, микроскоп, лупа
     Б) линейка, транспортир, термометр