Добрый день,
в программе а: первый цикл for заполняет массив array, случайными числами из указанного диапазона, в цикле while происходит поиск пары чисел по условию начиная с 3го элемента. Если находят выводят, что такая пара есть, в противном случае что такой пары нет.
в программе б:
Вводтся число n, дальше будет использоваться для поиска, дальше как и в программе а, заполняем массив случайными числами в цикле for, в repeat, мы движемся по массив, пока не встретим наше значение n, если встретили, выводим: такое число есть в массиве, в противном случае, такого числа нет.В repeat until реализован линейный алгоритм поиска.
Буду благодарен за отметку "Лучший ответ"
все вопросы в коментарии
задача 3
Объяснение:
код написан на delphi/pascal
program Task3;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
Alpha: set of Char = ['A'..'Z','А'..'П','Р'..'Я','a'..'z','а'..'п','р'..'я'];
var
s: String;
i: Integer;
wc: Integer;
begin
Readln(s);
i := 1; wc := 0;
repeat
while not (s[i] in Alpha) and (i <= Length(s)) do Inc(i);
if (i <= Length(s)) then Inc(wc);
while (s[i] in Alpha) and (i <= Length(s)) do Inc(i);
until i > Length(s);
Writeln('Num words -> ',wc);
readln;
end.
