Var x,x1,x2,s: integer; begin write('Введите x1:');readln(x1); write('Введите x2:');readln(x2); //ищем сумму цифр этих чисел x:=x1 div 100; s:=s+x; x:=x2 div 100; s:=s+x; x:=x1 div 10 mod 10; s:=s+x; x:=x2 div 10 mod 10; s:=s+x; x:=x1 mod 10; s:=s+x; x:=x2 mod 10; s:=s+x; s:=abs(s); //Теперь в s сумма цифр введенных x1 и x2 writeln('Сумма цифр ',x1,' и ', x2,' = ',s); if (s>9) and (s<100) then writeln('Произведение чисел =',x1*x2) else writeln('Разность чисел = ',x1-x2); end.
Тест №1
Введите x1:-999 Введите x2:-888 Сумма цифр -999 и -888 = 51 Произведение чисел =887112
Тест №2 Введите x1:111 Введите x2:222 Сумма цифр 111 и 222 = 9 Разность чисел = -111
Сначала набрать 3-х литровое и вылить эти три литра в 8-ми литромвое ведро, потом заного так сделать, и получится что в 8-ми литровом ведре будет 6 литров, потом опять набрать 3-литровое ведро водой и вылить его в 8-ми литровое, а так как в том ведре было 6 литров значит туда войдет только 2 литра, выливаем их и в 3-х литровом ведре остается 1 литр, дальше из 8-ми литровго ведра вылеваем всю воду и заливаем туда оставшийся в 3-х литровом ведре один литр, потом наливем в 8-ми литровое ведро еще два раза по три литра, и у нас получается в 8-ми литровом ведре 7 литров. Все
x,x1,x2,s: integer;
begin
write('Введите x1:');readln(x1);
write('Введите x2:');readln(x2);
//ищем сумму цифр этих чисел
x:=x1 div 100; s:=s+x;
x:=x2 div 100; s:=s+x;
x:=x1 div 10 mod 10; s:=s+x;
x:=x2 div 10 mod 10; s:=s+x;
x:=x1 mod 10; s:=s+x;
x:=x2 mod 10; s:=s+x;
s:=abs(s);
//Теперь в s сумма цифр введенных x1 и x2
writeln('Сумма цифр ',x1,' и ', x2,' = ',s);
if (s>9) and (s<100) then writeln('Произведение чисел =',x1*x2)
else writeln('Разность чисел = ',x1-x2);
end.
Тест №1
Введите x1:-999
Введите x2:-888
Сумма цифр -999 и -888 = 51
Произведение чисел =887112
Тест №2
Введите x1:111
Введите x2:222
Сумма цифр 111 и 222 = 9
Разность чисел = -111