Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет сумму чисел, кратных 3
243
266
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1336 от 14.11.2016 begin var a: =arrrandom(40,0,20); a.println; writeln('s=',a.where(i-> i mod 3=0).sum) end. пример 17 10 9 6 7 11 8 2 10 5 9 17 13 1 18 19 4 12 9 9 17 20 6 1 10 18 18 13 8 13 20 8 15 2 19 20 20 0 20 15 s=144
Var i,a,b,c,d,temp: integer; begin for i: =1000 to 9999 do begin temp: =i a: =temp div 1000; temp: = temp mod 1000; b: =temp div 100; temp: = temp mod 100; c: =temp div 10; d: = temp mod 10; if (a< > b)and(a< > c)and(a< > d)and(b< > c)and(b< > d)and(c< > d) then writeln(i); end; end.
Популярно: Информатика
-
Nikaaazhh11.06.2021 15:21
-
Løæålø14.06.2023 02:40
-
usenov77724.01.2023 13:48
-
Маргольц23.12.2020 12:27
-
NikitaZlatoystov06.08.2020 09:40
-
5polinka14.11.2020 05:21
-
vaniev200620.04.2021 01:39
-
osazienko29.11.2021 04:32
-
aa1055000p0c7vs12.04.2023 07:02
-
Varkorn01.02.2023 06:38