Сведения о системе;
2) средства диагностики компьютера
3) программа дефрагментации диска
4) средства коммуникации (коммуникационные программы)
5) диспетчеры файлов (файловые менеджеры)
6) средства сжатия данных (архиваторы)
7) антивирусные программы
8) средства обеспечения компьютерной безопасности
Var z1,z2:byte;
begin
for z1:=1 to 9 do begin
for z2:=0 to 9-z1 do begin
writeln(z1,z2,z1+z2);
end;
end;
end.
По просьбе автора задачи - вариант с 3 циклами
var x,y,z:byte;
begin
for x:=1 to 9 do begin
for y:=0 to 9 do begin
for z:=0 to 9 do begin
if (x+y=z) then writeln(x,y,z);
end;
end;
end;
end.
1,4 слайд установить переключение по щелчку
2,3 установить переключение по времени и задать время в секундах
# # Код на ruby 2.2.3p173
count = 0
for i in 0..9
for j in 0..9
for k in 0..9
num = i*10**5+j*10**4+k*10**3+k*10**2+j*10**1+i*10**0
count+=1 if num.between?(189980,205505)
end
end
end
p count
ответ 17