Ответ:
Объяснение:
program chet;
var S: integer;
St: string;
begin
S:=0;
WriteLn ('Введите строку, содержащую цифры :');
ReadLn(St);
for var i:=1 to length(St) do
if ( St[i]='0') or ( St[i]='2') or ( St[i]='4') or
( St[i]='6') or ( St[i]='8') then S:=S+1;
WriteLn( 'Четных цифр - ' , S);
ReadLn;
end.
Збс, клевое задание................
a) Лаборатория Касперского.
b) Файл, заражённый вирусом, останется на компьютере в том случае, если не проверять компьютер на наличие вирусов.
c) Антивирусные программы могут сканировать все файлы которые имеются на компьютере на наличие вредоностных программ или непонятных файлов, а также изменять или удалять содержимое компьютера (в смысле после нахождения вируса, антивирус может поместить его в карантин или вовсе удалить).