Найти произведение диагональных элементов массива размером МхN, элементы которого вводятся с клавиатуры.
Выполнить в программе Pascal.
102
143
Ответы на вопрос:
Var t1, v1, t2, v2, s1, s2, s, t, v : real; begin write('t1 = '); read(t1); write('v1 = '); read(v1); write('t2 = '); read(t2); write('v1 = '); read(v2); s1 : = v1 * t1; s2 : = v2 * t2; s : = s1 + s2; t : = t1 + t2; v : = s / t; write('cp.v = ', v); end. пример работы программы: t1 = 2 v1 = 5 t2 = 3 v1 = 10 cp.v = 8
Популярно: Информатика
-
Tw1mHero20.01.2023 03:20
-
Tahir35306.08.2021 14:40
-
zanna8220.04.2021 23:43
-
annfeed1708200516.06.2020 03:17
-
hayatuzun0027.06.2022 13:17
-
Ania15114.08.2020 08:09
-
варфэисник18.11.2021 21:34
-
Ивангаййййййййй29.11.2022 01:56
-
Araslanv0va26.07.2020 03:33
-
Djajdjo17.03.2023 16:15