Напишите программы в pascal: 1. ввести целое число и определить, верно ли, что все его цифры расположены в порядке 2. ввести целое число и «перевернуть» его, так чтобы первая цифра стала последней и т.д.

277

395

Посмотреть ответы 3

Ответы на вопрос:

milana5697

Информатика

4,7(73 оценок)

Var a,b,k,n,m: integer; begin write('введите целое число: '); readln(a); b: =a; n: =0; k: =0; while b< > 0 do begin n: =n+1; b: =b div 10; end; m: =a mod 10; for n: = 1 to n-1 do begin a: =a div 10; if (m > a mod 10) then begin k: =k+1; m: =a mod 10; end; end; if k = n then write('верно') else write('не верно') end. var a: integer; begin write('введите целое число: '); readln(a); while a< > 0 do begin write(a mod 10); a: =a div 10 end; end.

Polinakovta

Информатика

4,8(76 оценок)

//pascalabc.net 3.2 {1} begin var n: =readstring('число: '); var b: =true; for var i: =1 to length(n)-1 do if n[i]> n[i+1] then b: =false; write (b? 'да': 'нет') end. {2} begin write (readstring('число: ').inverse) end.