Сколько мышек съедают два кота за один час? 2 : 2 = 1 (мышь) - съедят два кота за один час. Сколько мышей съест один кот за один час? 1 : 2 = 1/2 (мыши) - съест один кот за один час. Далее получаем: 1/2 • 4 = 2 (мыши) - съедят 4 кота за 1 час. 2 • 4 = 8 (мышей) - съедят 4 кота за 4 часа. ответ: 8 мышей.
var a, b: array[1..n] of integer; i, j, step, t: integer; flag: boolean;
begin Randomize; Writeln('Исходные элементы массива'); for i := 1 to n do begin a[i] := Random(10) - 5; Write(a[i]:4) end; { Сортируем массив (метод Шелла) } step := n div 2; while step > 0 do begin for j := n - step downto 1 do begin i := j; while i <= n - step do begin if a[i] > a[i + step] then begin t := a[i]; a[i] := a[i + step]; a[i + step] := t end; i := i + step end end; step := step div 2 end; { проходим по массиву и если элемент встречается более одного раза подряд, переносим его в другой массив } j := 0; t := a[1]; flag := false; for i := 2 to n do begin if (a[i] = t) and (not flag) then begin j := j + 1; b[j] := t; flag := true end else begin flag := false; t := a[i] end end; Writeln; Writeln('Отобранные элементы массива'); for i := 1 to j do Write(b[i]:4); Writeln end.
Read (x). Оператор ввода значения переменной с клавиатуры. Если программа представляет собой последовательность выполнения различных задач, в том числе и Read, то когда очередь дойдет до него программа запросит у вас ввод данных и пока вы не выполните требования, она не продолжит работу. х - это переменная. Переменные бывают различных типов (не все подходят для read). Два основных типа: Число (integer) и Символ(Char). Если х типа integer, то вам придется ввести целое число (например 2). Но при вводе символа программа выбьет ошибку "Ошибка ввода", так как вы попытались присвоить переменной числа, букву, а это невозможно. Рассмотрим пример программы: здесь х типа integer,сначала он намеренно присвоен 5 и выведен на экран, затем вам дается возможность ввести новый х, и он заново выведется. Если вы попытаетесь ввести символ то выбьет ошибку "ошибка ввода", попробуйте.
Var x:integer; Begin x:=5; writeln ('x=',x); write ('Enter a new X: '); read (x); writeln ('x=',x); end.
2:2=1мышь
сколько мышек съест1кот за 4 часа
1х4=4мыши
сколько мышек съедят 4 кота
4*4=16
ответ: 16 мышек