Дана послкдовательность чисел оканчивающихся на 0 найти сумму и произведение паскаль
282
353
Ответы на вопрос:
//pascalabc.net //версия 3.3.5, сборка 1650 begin var (sum,p): =(0,1.0); readseqintegerwhile(t-> t< > 0).foreach(f-> begin sum+=f; p: =p*f; end); write('сумма: ',sum,'; произведение: ',p); end.
Популярно: Информатика
-
kmatachp01gzm12.02.2020 13:50
-
BekaBeka00108.06.2023 20:42
-
амира4520.05.2020 13:33
-
zzzzzzya201728.09.2022 21:07
-
MeriDu330.04.2023 00:31
-
SteveDog8611.05.2022 23:06
-
шегп16.10.2022 06:32
-
begem0tcs10.08.2021 09:49
-
alexmmv201305.01.2021 14:57
-
GangsterNigga109.06.2020 03:36