Ответы на вопрос:
Pascalabc.net 3.4.2, сборка 1887 от 30.11.2018 внимание! если программа не работает, обновите версию!
begin
var a: =random(7,17);
a.println
end.
//pascalabc.net //версия 3.3, сборка 1634 (14.02.2018) begin var s : = readstring.joinintostring(' ').tointegers; var (a,b): =(s.where(t-> t=1).count,s.where(t-> t=2).count); (s.findlastindex(t-> t=s.min)+1).println; println((b=0) and (a> +1)*5: a*5+b*5); end. пример: 1122222212222111122217 100
Популярно: Информатика
-
dominocos08.04.2021 01:05
-
Koki200625.12.2020 10:40
-
Miranny22.04.2020 22:25
-
viiiiiiiiiiii29.08.2020 09:23
-
Riiiiiii21.12.2022 13:48
-
инджи117.02.2021 02:56
-
vgubajdullin25.01.2022 17:28
-
Valinka999905.01.2023 04:06
-
Gir911.11.2022 10:26
-
ZoiTema13.10.2021 19:49