Пусть правильный ответ 5
Var a:integer;
Begin
A:=0;
While a<>5 do Readln(a)
<Остальная часть программы>
1842₁₀ = 5241₇
1842/7= 263 ост. 1
263/7=37 ост. 4
37/7=5 ост. 2
5
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
begin
Range(1,20).Aggregate(biginteger(1),(p,x) -> p*x).Println;
end.
<u>Ответ = 2432902008176640000</u>
Может быть не исполнимые, а исполняемые файлы? Тогда эти вирусы так и называются - файловые. Обычно такие файлы с вирусом имеют расширение exe или реже com
Удачи! :)