<span>1 <span>for i:=1 to 10 do
2 begin
3 x[i]:= random(0)-2;
4 write(x[i]:1);
5 end;</span></span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
if ReadSeqIntegerWhile(t->t<>0).Any(t->(t<100) or (t>999)) then
Writeln('No')
else Writeln('Yes')
end.
<u>Пример</u>
35 717 405 225 0
No
Не понял по поводу "7 столбиков". Потому, что алгоритм заполняет массив квадратами чисел от 1 до 10. То-есть на выходе вы получаете последовательность:
1
4
9
16
...
81
100
На языке программирования это может выглядеть так:
//Pascal
const n = 10;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
a[i]:=i*i
writeln(a[i]);
end.
Выясняем какое количество строк будет 2% от общего числа строк в каждой программе.
2% от 9000=180
Получается, что для каждого вируса он должен написать 180 строк кода.
На каждом компьютере 37 программ, каждая из которых состоит из 9000 строк кода. Выше мы выяснили сколько какое количество строк должен написать хакер для каждой из программ. А теперь выясним, какое количество строк он должен написать для всех программ на 1 компьютере, умножаем это количество на общее число вирусов, которых должен взломать хакер
180*37=6660
Далее, выясняем сколько вирусов должен написать хакер для всех компьютеров.
37*40=1480
Выясняем, общее число строк вирусного кода, которых должен написать хакер для всех программ на всех 40 компьютерах.
6660*40=266400
Ответ: 1)<span>1480 вирусов, 266400 строк кода</span>
var
i: integer;
begin
for i:= 35 to 87 do
begin
if i mod 7 = 1 then writeln(i, ' - остаток 1');
if i mod 7 = 2 then writeln(i, ' - остаток 2');
if i mod 7 = 5 then writeln(i, ' - остаток 5');
end;
end.