Написать программу pascal abc, ! ) вводится 4-х значное число. : 1) вывести число это же число, в котором меняется местами 1 и 2 цифра, 3 и 4 цифра, например 1234=2143. 2) если в перевернутом числе 1 двухзначное число> второго , то вывести 1 двухзначное число , если нет, то 2 двухзначное число. например, 2143= 21< 43 , следовательно выводится 43. 3) найти произведение всех цифр, перевернутого числа. заранее ! )

287

410

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

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

marina2002ermol

Информатика

4,5(54 оценок)

Var a: integer; b,c,d: byte; begin write('введите четырёхзначное число: '); readln(a); b: =a div 1000; c: =(a div 100) mod 10; d: =(a div 10) mod 10; a: =a mod 10; writeln('1: ',c,b,a,d); writeln('3: ',a*b*c*d); c: =c*10+b; d: =a*10+d; if c> d then writeln('2: ',c) else writeln('2: ',d) end. примеры работы программы: введите четырёхзначное число: 6547 1: 5674 3: 840 2: 74 введите четырёхзначное число: 9753 1: 7935 3: 945 2: 79 введите четырёхзначное число: 3149 1: 1394 3: 108 2: 94

вязова1настя

Информатика

4,5(20 оценок)

Program summa; var a, b ,ss,s: integer; begin writeln ( ' введите два целых числа' ); readln(a, b); s: = sqr (a+b); ss : = a*a + b*b; writeln ('сумма квадратов чисел равна ', ss); writeln ('квадрат суммы чисел равен ', s); end.