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

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

Ответ:

Anonim78e

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 оценок)

Популярные вопросы: Информатика

vichkapetrenko

25.05.2020 10:39

Составить программу суммирования натуральных чисел пока их сумма не превысит величину h. вывести на экран последнее слагаемое и сумму...

arinasuykova

25.05.2020 10:39

Написать алгоритм вычисления площади и периметра квадрата...

НосочекСудьбы

26.09.2021 12:26

Найти скорость падения кирпича. v=√(2∙g∙h). g=(9,8)...

vikarubachok

09.09.2021 01:49

Представить число в виде полинома степени n по по соответствующему основанию: 703(8)...

Тимыч08

09.09.2021 01:49

Чему будет равно r после выполнения программы: var a: integer; begin a: =25 if a mod 4=0 then write ( число кратно 4 ) else write ( число не кратно 4 ) end....

Olesechka00818

17.03.2022 11:49

При заданной таблице истинности : x y z 0 0 0 0 1 0 1 0 1 1 1 0 z будет равняться:...

новичок480

07.07.2022 14:55

Написати сучасні програми з роботою з фотографіею...

bogds2001

07.07.2022 14:55

Средства, обеспечивающие взаимодействие между компонентами системы( 9 букв )...

komaman

07.07.2022 14:55

Вопрос состоит в том, какой ответ является правильным, учительница говорит 2), в компиляторе выведено 3) ответ, но без пробелов, ваши предложения, после выполнения программы var...

барни6

06.01.2021 13:46

Выберите те комплекиующие, без которых компьютер СМОЖЕТ функционировать. Вы должны выбрать те варианты, без которых работа на компьютере будет возможна.. Материнская платаПроцессорБлок...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку