Программирование на паскале. задан массив s(n) из трехзначных целых чисел , где n- заданное натуральное число. сформировать 1-мерный массив в из элементов исходного массива в записи которых есть только цифры " 1 " и "2" если таких элементов нет , выдать соответствующее текстовое сообщение

153

269

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

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

ange4

Информатика

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

Var inner,i, a,b,c,d,n,n1 : integer; ar: array[1..n] of integer; bar: array[1..n1]; begin read(n); inner: =0; for i: =1 to n do read(ar[i]); for i: =1 to n do begin a: =arr[i] mod 10; b: =arr[i] div 10; c: =b mod 10; d: =b div 10; if ((a=1) or (a=2)) and((c=1) or (c=2)) and ((d=1) or (d=2)) do begin inner: =inner+1; bar[inner]: =ar[i]; end; end; if inner=0 then write ('элемнтов нет! ') end.

ричбич4

Информатика

4,6(9 оценок)

Program variant30; var n: integer; begin write('введите n (n< =13): '); readln(n); var fact : = 1; for var i : = 2 to n do fact *= i; writeln(n,'! = ',fact); end.