Выберите имена файлов, составленных неверно. 1)Пишу тебе я в 5 раз? .bmp
2)123-123.100
3)120/10=12
4)May 26 2009 .abs
5)120\10.12
6)Дорогой*друг txt
224
368
Ответы на вопрос:
Pascalabc.net 3.4.2, сборка 1857 от 05.11.2018 внимание! если программа не работает, обновите версию!
begin
var a : = arrrandom(10, 20, 30);
a.println;
var p : = 1;
foreach var t in a do
if t = 25 then p *= 25;
if p = 1 then p : = 0;
p.println;
end.
24 27 25 24 27 21 27 25 26 25 15625Популярно: Информатика
-
daa8615.06.2020 00:16
-
mlphappyme24.02.2020 05:33
-
мир27610.05.2022 02:21
-
vladus2001207.02.2020 07:29
-
влад2049107.09.2021 16:27
-
GreatGenius14.03.2020 07:22
-
dimabolnygin31.08.2022 12:16
-
Hhdhcnxh47536604.03.2020 04:51
-
Aron9101.09.2020 15:16
-
Кристинаuy30.11.2021 01:53