Нужна ! написать программу в паскале. ввести n чисел из диапазона от 0 до 10 000 и вывести количество трехзначных чисел ,а если таких чисел нет,то вывести нет

188

407

Посмотреть ответы 3

Ответы на вопрос:

vadimkamazurke

Информатика

4,4(72 оценок)

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin var k: =readseqinteger(readinteger('n=')) .where(t-> t.inrange(100,; if k> 0 then k.println else writeln('нет') end.

valeriya210322

Информатика

4,8(44 оценок)

Uses crt; type tdmassiv = record intmassiv : array of integer // создали тип "динамический массив" end; var n, i, k : integer; a : tdmassiv // создали переменную a нового типа tdmassiv begin clrscr; randomize; write('vvedite kol-vo chisel'); readln(n); setlength(a, n) // определяем, что массив а будет размера n элементов. for i=1 to n do begin a[i] : = random(10001); // заполняем массив случайными числами [0..10000] end; k : = 0; // k - это счетчик трехзначных чисел for i=1 to n do begin if (a[i] > = 100) and (a[i] < = 999) then k : = k+1; // считаем трехзначные числа end; if k : = 0 then writeln ('het') else writeln('trehznachnyh chisel = ', k); // выводим посчитанное количество чисел на экран end.