Дана страка символов, содержашая слова, то есть группы символов,разделеные пробелами( не менее одного). составте программу,которая определяет , сколько раз в тексте встречается задоное слово»
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var s:=ReadlnString('Введите строку:'); var w:=ReadlnString('Введите слово:'); Writeln('Встретилось ',s.ToWords.Where(x->x=w).Count,' раз(а)') end.
Тестовое решение: Введите строку: Не напрасно дули ветры, не напрасно шла гроза Введите слово: напрасно Встретилось 2 раз(а)
Червь – программа, которая делает копии самой себя. Ее вред заключается в захламлении компьютера, из-за чего он начинает работать медленнее. Отличительной особенностью червя является то, что он не может стать частью другой безвредной программы.Троянская программа (троянский конь, троян)Троянская программа маскируется в других безвредных программах. До того момента как пользователь не запустит эту самую безвредную программу, троян не несет никакой опасности. Тронская программа может нанести различный ущерб для компьютера. В основном трояны используются для кражи, изменения или удаления данных. Отличительной особенностью трояна является то, что он не может самостоятельно размножаться.
Program q1; uses crt; const n=10; var i,j:integer; mass:array [1..n] of integer; countNum:integer; // переменная для хранения количества нечетных чисел proizv:integer; // переменная для хранения произведения нечетных чисел BEGIN proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0 {создание последовательности n целых чисел} Writeln('Случайные целые числа: '); for i:=1 to n do begin mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10 write(inttostr(mass[ i ])+', '); end; {Вычисление произведения и количества нечетных чисел} for i:=1 to n do if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. . begin inc(countNum); //увеличиваем на один кол-во нечетных чисел proizv:=proizv*mass[ i ]; // высчитываем произведение end; {Вывод результатов} writeln; writeln('Всего нечетных чисел: '+inttostr(countNum)); writeln('Их произведение: '+inttostr(proizv)); END.
begin
var s:=ReadlnString('Введите строку:');
var w:=ReadlnString('Введите слово:');
Writeln('Встретилось ',s.ToWords.Where(x->x=w).Count,' раз(а)')
end.
Тестовое решение:
Введите строку: Не напрасно дули ветры, не напрасно шла гроза
Введите слово: напрасно
Встретилось 2 раз(а)