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

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.

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.

pascal:

 

program strings;

uses crt;

var i,open,close: integer;

a: string;

begin

open: =0;

end: =0;

clrscr;

write('введите строку: '); readln(a);

for i: =1 to length(a) do

begin

if a[i]='(' then open: =open+1;

if a[i]=')' then close: =close+1;

end;

 

writeln('открывающихся скобок: ', open, ' штук');

writeln('закрывающихся скобок: ', close, ' штук');

readln;

end.

наименьшее 4-х разрядное число в системе счисления с основанием 5 = 1000₅.

наибольшее 4-х разрядное число в системе счисления с основанием 5 = 4444₅.

переведем эти числа в десятичную систему счисления:

1000₅= 5³ = 125

4444₅ = (10000₅ - 1₅) = 5⁴ - 1 = 624

количество всех 4-х разрядных чисел в системе счисления с основанием 5 равно: 624 - 125 + 1 = 500

ответ. 500.