var
N, count:integer;
begin
write('N = ');
readln(N);
count := 0;
while N > 0 do
begin
if (N mod 10) mod 3 = 0 then
count := count + 1;
N := N div 10;
end;
writeln('Count = ', count);
readln;
end.
Есть 3 ответа, они расположены в последовательности действий:
3. На сравнении программных кодов с известными вирусами;
4. На определении заражённых файлов.
<span>1. На удалении зараженных файлов; </span>
<span>var a,b,c,min:integer;
begin
readln(a,b,c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('min = ',min);
end<span>.
Пример:
2 3 1
</span><span>min = 1</span></span>
Как вариант
#include <stdio.h>
int main(void)
{
int arr[5] = { 5, 9, 0, 3, 4 };
int sum = 0;
for (int i = 4; i > 0; --i) {
if (arr[i] == 0) {
for (int j = i; j < 5; ++j) {
sum += arr[j]; } break;
}
}
printf("%d", sum);
}
<u>// PascalABC.NET </u>
<u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u>
begin
for var i := ReadInteger('n->') to ReadInteger('k->') do
if i.ToString.OrderBy(t -> t).AdjacentGroup.Where(t -> t.Count = 3).Count > 0
then i.Println;
end.
<u>Пример:</u>
k-> 1170
n-> 1111
1112
1113
1114
1115
1116
1117
1118
1119
1121
1131
1141
1151
1161