Найти сумму цифр x*y+z*f числа xyzf пример работы программы : ввод 1234 вывод 14
242
444
Ответы на вопрос:
var a: integer;
begin
readln( a );
write( (a div 1000) * ((a div 100) mod 10) + ((a div 10) mod 10) * (a mod 10) );
end.
пояснение:
a - 4-значное число, тогда:
a div 1000 - первая цифра числа.
(a div 100) mod 10 - вторая цифра числа.
(a div 10) mod 10 - третья цифра числа.
a mod 10 - четвёртая цифра числа.
var a: integer;
begin
read (a);
write ((a div 1000) * (a div 100 mod 10) + (a mod 100 div 10) * (a mod 10))
end.
Популярно: Информатика
-
angellacat26ozuxwi25.02.2020 06:41
-
Alex20048800555353509.06.2023 09:49
-
aleksBRO08.10.2021 22:04
-
mdebnu03.05.2021 02:44
-
KatiaSur31.05.2022 02:55
-
LikaKostukova01.05.2021 17:01
-
iweriooo08.01.2020 06:20
-
natik04527.02.2021 15:57
-
yoonnie413818.03.2023 13:05
-
anisimovamargar119.12.2021 00:22