Question

Дано целое четырёхзначное число. Используя операции mod и div найдите сумму 1 и 2 цифры и произведение 3 и 4

Answer 1

• program paskal;
• var x,y,z:integer;
• begin
• writeln('Введите четырёхзначное число:');
• readln(x);
• y:=(x div 1000)+(x div 100) mod 10;
• z:=(x div 10) mod 10*(x mod 10);
• writeln('Сумма 1-й и 2-й цифры: ',y);
• writeln('Произведение 3-й и 4-й цифры: ',z);
• end.