Клавиша клавиатуры - цвет( Черный, белый, серый), Являеться ли клавиша горячей (да, нет, только в сочетании с другими), количество различных символов, которые можно набрать с одной клавиши(0, 1, 2, 3)
Классная доска - Поверхность для письма(Металл, дерево, глянец), размер(2,3,4 метра в квадрате), количество возможных положений доски(1,2,3,4)
Поскольку за последним словом в предложении пробела нет, то количество слов в предложении будет на единицу больше количества пробелов.
var i,n:integer; s:string; begin Writeln('Введите текст, разделяя слова ровно одним пробелом'); Readln(s); n:=0; for i:=1 to Length(s) do if s[i]=' ' then Inc(n); Writeln('Количество слов в тексте равно ',n+1) end.
Тестовое решение: Введите текст, разделяя слова ровно одним пробелом Это текст, количество слов в котором нам нужно посчитать. Количество слов в тексте равно 9
1) var a: array [1..5] of integer; i,k:integer; Begin Writeln('Перечислите элементы массива: ');For i:=1 to 5 do read(a[i]); For i:=1 to 5 do If (a[i] > -1) then write(a[i]:2); End. 2) var a: array [1..5] of integer; i,k1,k2,max,min:integer; Begin min:=MaxInt; max:=-MaxInt; Writeln('Перечислите элементы массива: '); For i:=1 to 5 do begin read(a[i]); if (a[i] > max) then max:=a[i]; if (a[i] < min) then min:=a[i]; end; For i:=1 to 5 do begin If (a[i] = max) then inc(k1); If (a[i] = min) then inc(k2); end; If (k1>k2) then writeln('Больше max элементов') else writeln('Больше min элементов'); End. 3) var a: array [1..5] of integer; i,k,x:integer; Begin Write ('X = '); read(x); Writeln('Перечислите элементы массива: '); For i:=1 to 5 do begin read(a[i]); if (a[i] = x ) then inc(k); end; writeln('kol = ',k) ; end.
Автомобиль - Пробег(10000, 50000, 100000км), максимальная скорость(80, 200, 300км/ч), год выпуска(1950, 2005, 2014г)
Компьютер - тактовая частота(1, 2, 3 Ггц), Объем оперативной памяти(4, 16, 64 ГБ), Объем памяти жесткого диска( 300, 600, 2000 ГБ)
Клавиша клавиатуры - цвет( Черный, белый, серый), Являеться ли клавиша горячей (да, нет, только в сочетании с другими), количество различных символов, которые можно набрать с одной клавиши(0, 1, 2, 3)
Классная доска - Поверхность для письма(Металл, дерево, глянец), размер(2,3,4 метра в квадрате), количество возможных положений доски(1,2,3,4)