х=7690 - условие
var x, L, M: integer;
begin readln(x);
L:=0;
M:=0;
while x > 0 do begin
1) L:= L + 1 = 1;
M:= M + x mod 10 = 0;
x:= x div 10 = 7 69;
2) L:= L + 1 = 2;
M:= M + x mod 10 = 9;
x:= x div 10 = 7 6;
3) L:= L + 1 = 3;
M:= M + x mod 10 = 15;
x:= x div 10 = 7 ;
4) L:= L + 1 = 4;
M:= M + x mod 10 = 22;
x:= x div 10 = 0;
end;
writeln(L);
write(M);
end.
L = 4; M = 22
Объяснение:
1)L:= L + 1 = 0 + 1 = 1;
M:= M + x mod 10 = 0 + 0 (остаток) = 0;
x:= x div 10 = 7690 : 10 = 769 (остаток 0 здесь не пишется);
2)L:= L + 1 = 1 + 1 = 2;
M:= M + x mod 10 = 0 + 9 (остаток) = 9;
x:= x div 10 = 769 : 10 = 76 (остаток 9 здесь не пишется);
3)L:= L + 1 = 2 + 1 = 3;
M:= M + x mod 10 = 9 + 6 (остаток) = 15;
x:= x div 10 = 76 : 10 = 7 (остаток 6 здесь не пишется);
4)L:= L + 1 = 3 + 1 = 4;
M:= M + x mod 10 = 15 + 7 (остаток) = 22;
x:= x div 10 = 7 : 10 = 0 (остаток 7 здесь не пишется);
это может быть число 19, так как 1+9=10 и 1*9=9, 10+9=19, может быть 29, так как 2+9=11, а 2*9=18, 11+18=29, может быть 39, так как 3+9=12, а 3*9=27, 12+27=39, так же 49, так как 4+9=13, 4*9=36, 36+13=49, еще число 59, потому что 5+9=14, а 5*9=45, 45+14=59, может быть число 69, потому что 6+9=15, а 6*9=54, сложим 54+15 и получим 69, так же подходит число 79, так как 7+9=16, а 7*9=63, 16+63=79, число 89, потому что 8+9=17, а 8*9=72, складываем и получаем 72+17+89, число 99, потому что 9+9=18, а 9*9=81, 18+81=99
program test;
var subject: string;
begin
writeln('Какой предмет вы изучаете?');
readln(subject);
writeln(subject, ' – любимый предмет многих');
readln;
end.