Ответы на вопрос:
Var i,b,c: integer; begin for i: =1 to 10 do begin readln(b); if (b> 10) and (b< 15) then c: =c+b; end; writeln(c); end.
Популярно: Информатика
-
Қызықты сайттар дегеніміз не? ...
Nesty11111114.08.2022 16:19 -
Створіть проект для обчислення значення виразу подайте його у словесній...
iliasnurdos20.07.2020 15:56 -
Дан целочисленный массив и число к.Вывечти индекс первого элемента большего...
perevalov11122207.04.2020 01:22 -
с информатикой составьте задачу по блок схеме на языке Паскаль...
wiwivvv21.04.2021 11:04 -
Зашифровать пословицу о труде...
SofiCat520.06.2021 13:15 -
Квадраты при игре в крестики-нолики пронумерованы, как показано на рисунке....
dasha505dasha11.09.2021 14:22 -
Запиши выражение f+sq в виде пригодном для использования в программе: f+sq...
sokolin227.07.2022 03:33 -
Яке розширення має файл Excel?...
правый148812.08.2021 17:47 -
хотя бы с чем-то из этого. Я уже кучу раз кидал хотя бы с чем-то из этого....
sponsor177624.01.2021 14:11 -
Укажите значение переменных k, l, m, n, при которых логическое выражение...
fasthelp103.01.2021 17:13