Расшифруйте анограммы и выберите лишнее слово. (анограммы - это головоломки, в которых переставляются буквы в словах) а) мгаабу б) тернпри в) нкокило г) пдлейис
Const n =5; var a: array[1..n] of integer; i,k,s,p: integer; begin s: =0; p: =1; for i: =1 to n do begin readln(a[i]); if(a[i] > = 5) then s: =s+a[i] else if (a[i] < 1) then p: =p*a[i]; end; writeln('исходные числа'); for i: =1 to n do write(a[i]+ ' '); writeln; writeln('сумма чисел больше 5 : ',s: 2); writeln('произведение меньше 1 : ',p: 2); readln end.
а) бумага
б)принтер
в) колонки
г)дисплей
лишнее - бумага. это не техника