Выполните задание в тетради (письменно). Рассмотри рисунки, назови виды информации. Как ты думаешь, часто ли мы применяем эти виды информации в повседневной жизни? Приведи примеры 1 2 3 4 5 6 7 8 9 10 No33 18 21 3 + 2 =5 12:4=3 4-1 = 3 100% 20% 11% 20.08.2016 Информация, которая представлена в виде слов, текстов, рассказов и т.д., называется текстовой, Некоторая информация может быть представлена в виде схем, чертежей, таблиц. 1 2.7 To 5 КА 1
как дела мама и Малыш в школе с милой студенткой в одежде и на теле человека в школе с милой студенткой в одежде и на теле человека в школе с милой студенткой в одежде и на теле человека в школе с милой студенткой в одежде и на теле человека в школе с милой студенткой в одежде
Var n,k,i: integer; a: array[1..1000] of integer; begin write ('Введите N: '); read (n); for i:=1 to n do begin write ('Введите ',i,'-й член последовательности: '); readln (a[i]); if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then k:=k+1 end; writeln ('K = ',k) end.
Введите N: 5 Введите 1-й член последовательности: 12 Введите 2-й член последовательности: 9 Введите 3-й член последовательности: 7 Введите 4-й член последовательности: 15 Введите 5-й член последовательности: 30 K = 2
// PascalABC.NET 3.0, сборка 1088 const n=9; m=7; var a:array[1..n,1..m] of integer; b:array[1..n] of boolean; i,j,k:integer; begin Randomize; Writeln('*** Исходный массив ***'); for i:=1 to n do begin k:=0; for j:=1 to m do begin a[i,j]:=Random(225)-112; Write(a[i,j]:5); if a[i,j]<0 Then Inc(k) end; Writeln; b[i]:=k>3 end; Writeln('*** Строки, содержащие больше 3 отрицательных элементов ***'); for i:=1 to n do if b[i] then Write(i,' '); Writeln end.
Объяснение:
как дела мама и Малыш в школе с милой студенткой в одежде и на теле человека в школе с милой студенткой в одежде и на теле человека в школе с милой студенткой в одежде и на теле человека в школе с милой студенткой в одежде и на теле человека в школе с милой студенткой в одежде