Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin var (a,b): =readinteger2; var s: =range(a,b).select(t-> t*t).sum; if s< 100 then writeln('yes') else writeln('no') end.
Популярно: Информатика
-
alwina34720.08.2021 20:17
-
daryabozhko200615.03.2023 09:50
-
petechkapeshko20.01.2020 16:47
-
goooooooooj02.07.2020 11:40
-
Julli0Kub12.06.2020 13:22
-
mridrazov12.03.2023 01:17
-
иринка24421.07.2020 20:56
-
caca2386p00xcz09.09.2021 18:02
-
Albina789014.08.2020 08:33
-
Cricetinae15.12.2022 07:51