Написать программу в паскаль n-целое число < 1000 испльзуя div и mod определить сколько цифр в этом числе вычислить сумму цифр числа определить чётное оно или нет вывести на экран это же число в обратном порядке

259

293

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

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

Vova77723

Информатика

4,4(25 оценок)

Var a,c,n2,n,sum,col: integer; begin readln(n); n2: =n; a: =0; sum: =0; col: =0; if n< 1000 then begin while(n2> 0) do begin c: =n2 mod 10; n2: =n2 div 10; a: =(c+a)*10; sum: =sum+c; col: =col+1; end; writeln(col); writeln(sum); if (n mod 2 =0) then writeln('чётное') else writeln('нечётное'); writeln(a div 10); end else write(n' больше 1000! '); end.

mikilinaf7890

Информатика

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

Program pos; var n, a, b, c, s, d: integer; begin write('n = '); readln(n); if n < 1000 then begin a : = n div 100; b : = n mod 100 div 10; c : = n mod 10; write('в числе '); if a = 0 then if b = 0 then begin d : = 1; writeln('1 цифра'); end else begin d : = 2; writeln('2 цифры'); end else begin d : = 3; writeln('3 цифры'); end; s : = a + b + c; writeln('сумма цифр: ', s); if n mod 2 = 0 then writeln('число чётное') else writeln('число нечётное'); if d = 1 then writeln(c) else if d = 2 then writeln(c, b) else writeln(c, b, a); end else writeln('число > 1000! '); end.