logo
Войти Регистрация Спроси ai-bota


79521312181
25.05.2022 23:45

Найти количество чисел большее 1-му , 10 данных целых чисел.(паскаль)

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
123gordeev
123gordeev
27.11.2020 07:12
10. укажите количество информации, равное 5 кбайт:...
Anas11111
Anas11111
27.11.2020 07:12
Фрагмент алгоритма изображен в виде блок-схемы определите, какое значение примет переменная s на выходе. a) 25 b) 38 c) 30 d) 60...
buzaeva2013
buzaeva2013
27.11.2020 07:12
Даны целочисленные координаты x и y. написать программу,которая выводит на экран сообщение принадлежит или не принадлежит эта точка 1-ой четверти координатной плоскости. точки на осях...
tabastyaffdsgh
tabastyaffdsgh
11.09.2021 09:13
Какой хранения информации в компьютере называется растровым​...
antoxa228322
antoxa228322
06.07.2021 09:52
Виды фракталов и область их применения....
FluffyFoxLove
FluffyFoxLove
25.07.2021 14:25
В элек­трон­ной таб­ли­це зна­че­ние фор­му­лы =СРЗНАЧ(B5:E5) равно 100. Чему равно зна­че­ние фор­му­лы =СУММ(B5:D5), если зна­че­ние ячей­ки E5 равно 50? Пу­стых ячеек в таб­ли­це...
ArhangelTYT
ArhangelTYT
14.02.2020 15:32
3. Напишите программу «Синоптик», которая по введенной температуре, дает комментарий о погоде и рекомендацию о прогулке. Проявите фантазию. Используйте не менее 5 диапазонов температур....
vyaskin2018
vyaskin2018
15.04.2022 15:06
Вставьте недостающие фрагменты программы. Сформировать массив из 15 элементов. Ввод элементов осуществить с клавиатуры. Посчитать количество нечетных элементов массива. Вывести сформированный...
маришка197
маришка197
21.01.2022 04:29
Производится четырехканальная звукозапись с частотой дискретизации 64 кГц и 32-битным разрешением. Запись длится 1 минуту. Найдите объем звукового файла в Мегабайтах.​...
Y4ehik300
Y4ehik300
10.06.2021 10:51
1. Напишите программу, которая по введенным пользователем трём сторонам треугольника должна определить является ли треугольник равносторонним, равнобедренным или вырожденным. Вычислить...
Ответ:
eden23
09.10.2020 20:29
Var x,y,i: integer;
begin
y:=0;
for i:=1 to 10 do
begin
readln(x);
if x>1 then inc(y);
end;
writeln(y);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота