Регистрация
watasiwanekodesu4
25.09.2020 06:55
Информатика
Есть ответ 👍

25 ! выполнять в pascalabc.! дано x- шестизначное натуральное число, найти сумму первых 3 цифр и сумму последних 3 цифр.

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

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

Alekseimiller
Alekseimiller
4,7(3 оценок)
Var a, b, c, d, e, f, g, h, j: integer; begin write('введите число: '); read(a); b : = a mod 10; c : = (a div 10) mod 10; d : = (a div 100) mod 10; e : = (a div 1000) mod 10; f : = (a div 10000) mod 10; g : = a div 100000; h : = b+c+d; j : = e+f+g; writeln('сумма первых трех чисел: ', j); writeln('сумма последних трех чисел: ', h); end.
ЛебедЪ
ЛебедЪ
4,5(11 оценок)

Відповідь:
usni_robit_chas = 1  # година на усну роботу

pisemni_robit_chas = 2  # дві години на письмову роботу

kilkist_usnih_robit = 2  # кількість усних робіт

kilkist_pisemnih_robit = 3  # кількість письмових робіт

# Обчислення загального часу на усні роботи

usni_robit_total_chas = usni_robit_chas * kilkist_usnih_robit

# Обчислення загального часу на письмові роботи

pisemni_robit_total_chas = pisemni_robit_chas * kilkist_pisemnih_robit

# Обчислення загального часу на дві усні роботи і тріє письмові роботи

total_chas = usni_robit_total_chas + pisemni_robit_total_chas

print("Загальний час на дві усні роботи:", usni_robit_total_chas, "годин")

print("Загальний час на тріє письмові роботи:", pisemni_robit_total_chas, "годин")

print("Загальний час на дві усні роботи і тріє письмові роботи:", total_chas, "годин")

Популярно: Информатика